home *** CD-ROM | disk | FTP | other *** search
/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / languages / gawk / c / awktab < prev    next >
Encoding:
Text File  |  1991-02-05  |  88.2 KB  |  2,837 lines
  1. /*  A Bison parser, made from awk.y  */
  2.  
  3. #define    FUNC_CALL    258
  4. #define    NAME    259
  5. #define    REGEXP    260
  6. #define    ERROR    261
  7. #define    NUMBER    262
  8. #define    YSTRING    263
  9. #define    RELOP    264
  10. #define    APPEND_OP    265
  11. #define    ASSIGNOP    266
  12. #define    MATCHOP    267
  13. #define    NEWLINE    268
  14. #define    CONCAT_OP    269
  15. #define    LEX_BEGIN    270
  16. #define    LEX_END    271
  17. #define    LEX_IF    272
  18. #define    LEX_ELSE    273
  19. #define    LEX_RETURN    274
  20. #define    LEX_DELETE    275
  21. #define    LEX_WHILE    276
  22. #define    LEX_DO    277
  23. #define    LEX_FOR    278
  24. #define    LEX_BREAK    279
  25. #define    LEX_CONTINUE    280
  26. #define    LEX_PRINT    281
  27. #define    LEX_PRINTF    282
  28. #define    LEX_NEXT    283
  29. #define    LEX_EXIT    284
  30. #define    LEX_FUNCTION    285
  31. #define    LEX_GETLINE    286
  32. #define    LEX_IN    287
  33. #define    LEX_AND    288
  34. #define    LEX_OR    289
  35. #define    INCREMENT    290
  36. #define    DECREMENT    291
  37. #define    LEX_BUILTIN    292
  38. #define    LEX_LENGTH    293
  39. #define    UNARY    294
  40.  
  41. #line 26 "awk.y"
  42.  
  43. #ifdef DEBUG
  44. #define YYDEBUG 12
  45. #else
  46. #define YYDEBUG 0
  47. #endif
  48.  
  49. #include "awk.h"
  50.  
  51. /*
  52.  * This line is necessary since the Bison parser skeleton uses bcopy.
  53.  * Systems without memcpy should use -DMEMCPY_MISSING, per the Makefile.
  54.  * It should not hurt anything if Yacc is being used instead of Bison.
  55.  */
  56. #define bcopy(s,d,n)    memcpy((d),(s),(n))
  57.  
  58. extern void msg();
  59. extern struct re_pattern_buffer *mk_re_parse();
  60.  
  61. NODE *node();
  62. NODE *lookup();
  63. NODE *install();
  64.  
  65. static NODE *snode();
  66. static NODE *mkrangenode();
  67. static FILE *pathopen();
  68. static NODE *make_for_loop();
  69. static NODE *append_right();
  70. static void func_install();
  71. static NODE *make_param();
  72. static int hashf();
  73. static void pop_params();
  74. static void pop_var();
  75. static int yylex ();
  76. static void yyerror(char *mesg, ...);
  77. /***********************
  78. static void yyerror();
  79. ***********************/
  80. static int want_regexp;        /* lexical scanning kludge */
  81. static int want_assign;        /* lexical scanning kludge */
  82. static int can_return;        /* lexical scanning kludge */
  83. static int io_allowed = 1;    /* lexical scanning kludge */
  84. static int lineno = 1;        /* for error msgs */
  85. static char *lexptr;        /* pointer to next char during parsing */
  86. static char *lexptr_begin;    /* keep track of where we were for error msgs */
  87. static int curinfile = -1;    /* index into sourcefiles[] */
  88. static int param_counter;
  89.  
  90. NODE *variables[HASHSIZE];
  91.  
  92. extern int errcount;
  93. extern NODE *begin_block;
  94. extern NODE *end_block;
  95.  
  96. #line 77 "awk.y"
  97. typedef union {
  98.     long lval;
  99.     AWKNUM fval;
  100.     NODE *nodeval;
  101.     NODETYPE nodetypeval;
  102.     char *sval;
  103.     NODE *(*ptrval)();
  104. } YYSTYPE;
  105.  
  106. #ifndef YYLTYPE
  107. typedef
  108.   struct yyltype
  109.     {
  110.       int timestamp;
  111.       int first_line;
  112.       int first_column;
  113.       int last_line;
  114.       int last_column;
  115.       char *text;
  116.    }
  117.   yyltype;
  118.  
  119. #define YYLTYPE yyltype
  120. #endif
  121.  
  122. #define    YYACCEPT    return(0)
  123. #define    YYABORT    return(1)
  124. #define    YYERROR    goto yyerrlab
  125. #include <stdio.h>
  126.  
  127. #ifndef __STDC__
  128. #define const
  129. #endif
  130.  
  131.  
  132.  
  133. #define    YYFINAL        298
  134. #define    YYFLAG        -32768
  135. #define    YYNTBASE    61
  136.  
  137. #define YYTRANSLATE(x) ((unsigned)(x) <= 294 ? yytranslate[x] : 105)
  138.  
  139. static const char yytranslate[] = {     0,
  140.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  141.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  142.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  143.      2,     2,    49,     2,     2,    52,    48,     2,     2,    53,
  144.     54,    46,    44,    60,    45,     2,    47,     2,     2,     2,
  145.      2,     2,     2,     2,     2,     2,     2,    40,    59,    41,
  146.      2,    42,    39,     2,     2,     2,     2,     2,     2,     2,
  147.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  148.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  149.     55,     2,    56,    51,     2,     2,     2,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  151.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,    57,    43,    58,     2,     2,     2,     2,     2,
  153.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  154.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  155.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  156.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  157.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  158.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  159.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  160.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  161.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  162.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  163.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  164.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  165.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  166.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  167.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  168.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  169.     36,    37,    38,    50
  170. };
  171.  
  172. static const short yyrline[] = {     0,
  173.    136,   141,   149,   165,   166,   170,   172,   186,   188,   202,
  174.    208,   214,   216,   218,   220,   229,   231,   236,   240,   248,
  175.    257,   259,   268,   270,   281,   286,   291,   293,   301,   303,
  176.    308,   310,   316,   318,   320,   322,   324,   326,   328,   333,
  177.    337,   342,   345,   348,   350,   352,   355,   356,   358,   360,
  178.    362,   364,   369,   371,   376,   381,   388,   390,   395,   397,
  179.    402,   404,   409,   411,   413,   415,   420,   422,   427,   429,
  180.    431,   433,   435,   441,   443,   448,   450,   455,   457,   463,
  181.    465,   467,   469,   474,   476,   481,   483,   489,   491,   493,
  182.    495,   500,   503,   504,   506,   511,   520,   522,   524,   526,
  183.    528,   530,   532,   534,   536,   538,   540,   542,   547,   550,
  184.    551,   553,   555,   564,   566,   568,   570,   572,   574,   576,
  185.    578,   583,   585,   587,   589,   591,   593,   597,   599,   601,
  186.    603,   605,   607,   609,   613,   615,   617,   619,   621,   623,
  187.    625,   627,   632,   634,   639,   641,   643,   648,   652,   656,
  188.    660,   661,   665,   668
  189. };
  190.  
  191. static const char * const yytname[] = {     "",
  192. "error","$illegal.","FUNC_CALL","NAME","REGEXP","ERROR","NUMBER","YSTRING","RELOP","APPEND_OP",
  193. "ASSIGNOP","MATCHOP","NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE","LEX_RETURN","LEX_DELETE",
  194. "LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT","LEX_PRINTF","LEX_NEXT","LEX_EXIT","LEX_FUNCTION",
  195. "LEX_GETLINE","LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN","LEX_LENGTH","'?'","':'",
  196. "'<'","'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY",
  197. "'^'","'$'","'('","')'","'['","']'","'{'","'}'","';'","','",
  198. "start"
  199. };
  200.  
  201. static const short yyr1[] = {     0,
  202.     61,    62,    62,    62,    62,    64,    63,    65,    63,    63,
  203.     63,    63,    63,    63,    63,    66,    66,    68,    67,    69,
  204.     70,    70,    72,    71,    73,    73,    74,    74,    74,    74,
  205.     75,    75,    76,    76,    76,    76,    76,    76,    76,    76,
  206.     76,    76,    76,    76,    76,    77,    76,    76,    78,    76,
  207.     76,    76,    79,    79,    80,    80,    81,    81,    82,    82,
  208.     83,    83,    84,    84,    84,    84,    85,    85,    86,    86,
  209.     86,    86,    86,    87,    87,    88,    88,    89,    89,    89,
  210.     89,    89,    89,    90,    90,    91,    91,    91,    91,    91,
  211.     91,    93,    92,    92,    92,    92,    92,    92,    92,    92,
  212.     92,    92,    92,    92,    92,    92,    92,    92,    95,    94,
  213.     94,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  214.     94,    96,    96,    96,    96,    96,    96,    96,    96,    96,
  215.     96,    96,    96,    96,    96,    96,    96,    96,    96,    96,
  216.     96,    96,    97,    97,    98,    98,    98,    99,   100,   101,
  217.    102,   102,   103,   104
  218. };
  219.  
  220. static const short yyr2[] = {     0,
  221.      3,     1,     2,     1,     2,     0,     3,     0,     3,     2,
  222.      2,     2,     1,     2,     2,     1,     1,     0,     7,     3,
  223.      1,     3,     0,     4,     3,     4,     1,     2,     1,     2,
  224.      1,     2,     2,     2,     3,     1,     6,     8,     8,    10,
  225.      9,     2,     2,     6,     4,     0,     3,     3,     0,     4,
  226.      6,     2,     1,     1,     6,     9,     1,     2,     0,     1,
  227.      0,     2,     0,     2,     2,     2,     0,     1,     1,     3,
  228.      1,     2,     3,     0,     1,     0,     1,     1,     3,     1,
  229.      2,     3,     3,     0,     1,     1,     3,     1,     2,     3,
  230.      3,     0,     4,     5,     4,     3,     3,     3,     3,     1,
  231.      2,     3,     3,     3,     3,     5,     1,     2,     0,     4,
  232.      3,     3,     3,     1,     2,     3,     3,     3,     5,     1,
  233.      2,     2,     3,     4,     4,     1,     4,     2,     2,     2,
  234.      2,     1,     1,     1,     3,     3,     3,     3,     3,     3,
  235.      2,     2,     0,     1,     1,     4,     2,     2,     2,     1,
  236.      0,     1,     1,     2
  237. };
  238.  
  239. static const short yydefact[] = {    59,
  240.     57,    60,     0,    58,     4,     0,   145,   133,   134,     6,
  241.      8,    18,   143,     0,     0,     0,   126,     0,     0,    23,
  242.      0,     0,     0,    59,     0,     2,     0,     0,   100,    13,
  243.     21,   107,   132,     0,     0,     0,   153,     0,    10,    31,
  244.     59,     0,    11,     0,    61,   144,   128,   129,     0,     0,
  245.      0,     0,   142,   132,   141,     0,   101,   122,   147,    88,
  246.      0,    86,   148,     5,     3,     1,    15,     0,    12,    14,
  247.      0,     0,     0,     0,     0,     0,     0,     0,     0,    59,
  248.    108,     0,     0,     0,     0,     0,     0,     0,    92,   130,
  249.    131,    29,     0,    49,     0,     0,    59,     0,     0,     0,
  250.     53,    54,    46,    74,    59,     0,    27,     0,    36,     0,
  251.      0,   151,    59,     0,     0,    86,     0,     7,    32,     9,
  252.     17,    16,     0,     0,    96,     0,     0,     0,     0,    89,
  253.    150,     0,     0,   123,     0,   103,    99,   102,    97,    98,
  254.      0,   104,   105,   143,   154,    22,   139,   140,   136,   137,
  255.    138,   135,     0,     0,    74,     0,     0,     0,    74,    42,
  256.     43,     0,     0,    75,   149,    30,    28,   151,    80,   143,
  257.      0,     0,   114,    63,     0,    78,   120,   132,    52,     0,
  258.     34,    25,   152,    33,   127,   146,     0,    62,   124,   125,
  259.     24,    90,     0,    91,    87,    20,     0,    95,    93,     0,
  260.      0,     0,     0,     0,   145,     0,    47,    48,    26,    61,
  261.    115,     0,     0,     0,     0,     0,    81,     0,     0,     0,
  262.      0,     0,     0,     0,   121,   109,    35,    71,    69,     0,
  263.      0,    94,   106,    59,    50,     0,    59,     0,     0,     0,
  264.    113,    63,    65,    64,    66,    45,    82,    83,    79,   118,
  265.    116,   117,   111,   112,     0,     0,    59,    72,     0,     0,
  266.      0,     0,     0,     0,     0,    74,     0,     0,   110,    19,
  267.     73,    70,    55,    51,    37,     0,    59,    74,     0,    44,
  268.    119,    59,    59,     0,     0,    59,     0,    38,    39,    59,
  269.      0,    56,     0,    41,    40,     0,     0,     0
  270. };
  271.  
  272. static const short yydefgoto[] = {   296,
  273.     25,    26,    38,    42,   123,    27,    44,    67,    28,    29,
  274.     56,    30,   106,    39,   107,   162,   155,   108,   109,     2,
  275.      3,   125,   216,   230,   231,   163,   174,   175,   114,   115,
  276.     81,   153,   225,   256,    32,    45,    33,   111,   112,   134,
  277.    182,   113,   133
  278. };
  279.  
  280. static const short yypact[] = {    21,
  281. -32768,    37,  1020,-32768,-32768,   -32,     1,-32768,-32768,    17,
  282.     17,-32768,    11,    11,    11,    31,    45,  1757,  1757,-32768,
  283.   1738,  1757,  1112,    21,   540,-32768,    13,    40,-32768,-32768,
  284.    816,   142,    55,   612,  1092,  1112,-32768,    13,-32768,    37,
  285.     21,    13,-32768,    51,    59,-32768,-32768,-32768,  1092,  1092,
  286.   1757,  1625,    27,    -7,    27,    97,-32768,    27,-32768,-32768,
  287.      4,  1225,-32768,-32768,-32768,-32768,-32768,   706,-32768,-32768,
  288.   1625,  1625,   100,  1625,  1625,  1625,  1625,  1625,    76,    21,
  289.    300,  1625,  1757,  1757,  1757,  1757,  1757,  1757,-32768,-32768,
  290. -32768,-32768,    52,-32768,   109,    62,    21,    64,    17,    17,
  291. -32768,-32768,-32768,  1625,    21,   659,-32768,   763,-32768,   920,
  292.    612,    65,    21,    67,     7,  1324,    25,-32768,-32768,-32768,
  293. -32768,-32768,    70,  1757,-32768,    67,    67,  1225,    84,  1625,
  294. -32768,   101,  1159,-32768,   659,  1811,  1796,-32768,  1465,  1371,
  295.   1277,  1811,  1811,    11,-32768,  1324,   -10,   -10,    27,    27,
  296.     27,    27,  1625,  1625,  1625,    87,  1625,   863,  1672,-32768,
  297. -32768,    17,    17,  1324,-32768,-32768,-32768,    65,-32768,    11,
  298.   1738,  1112,-32768,     9,     0,  1512,   142,    83,-32768,   659,
  299. -32768,-32768,-32768,-32768,-32768,-32768,     8,   142,-32768,-32768,
  300. -32768,  1324,   134,-32768,  1324,-32768,  1625,-32768,  1324,  1225,
  301.     17,  1112,  1225,   122,   -16,    65,-32768,-32768,-32768,    59,
  302. -32768,     4,  1625,  1625,  1625,    17,  1691,  1178,  1691,  1691,
  303.    140,  1691,  1691,  1691,   939,-32768,-32768,-32768,-32768,    67,
  304.     23,-32768,  1324,    21,-32768,    26,    21,    94,   144,  1045,
  305. -32768,     9,  1324,  1324,  1324,-32768,  1512,-32768,  1512,   782,
  306.   1858,-32768,  1606,  1559,  1418,  1691,    21,-32768,    44,   863,
  307.     17,   863,  1625,    67,   973,  1625,    17,  1691,  1512,-32768,
  308. -32768,-32768,   131,-32768,-32768,  1225,    21,  1625,    67,-32768,
  309.   1512,    21,    21,   863,    67,    21,   863,-32768,-32768,    21,
  310.    863,-32768,   863,-32768,-32768,   163,   166,-32768
  311. };
  312.  
  313. static const short yypgoto[] = {-32768,
  314. -32768,   145,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   201,
  315. -32768,    78,   -54,    12,   225,-32768,-32768,-32768,-32768,   363,
  316.    104,   -39,   -70,-32768,-32768,  -152,-32768,-32768,    60,   -19,
  317.     -3,-32768,   -83,-32768,   146,  -126,    74,   178,  -100,   319,
  318.     10,   329,   -29
  319. };
  320.  
  321.  
  322. #define    YYLAST        1911
  323.  
  324.  
  325. static const short yytable[] = {    31,
  326.    217,    82,   201,    61,   130,   168,   206,   130,   228,   -77,
  327.    181,   229,   -77,   135,     7,   239,   117,   198,   213,    62,
  328.     35,    31,    43,   258,   176,   130,   130,    90,    91,     1,
  329.    110,   116,   116,     1,   196,    85,    86,    87,    36,    70,
  330.     88,   -77,   -77,   210,   271,   116,   116,   272,   128,     4,
  331.    214,   215,     1,   121,   122,    36,   180,   131,   -77,    80,
  332.    -85,   -67,    22,    80,   110,    89,    80,   136,   137,    24,
  333.    139,   140,   141,   142,   143,    37,   -68,    88,   146,   227,
  334.    186,   261,    80,    49,    80,    80,    46,    47,    48,    90,
  335.     91,    54,    54,   226,    54,    54,    24,    50,    37,   124,
  336.    164,   129,   110,   138,   154,    69,   144,   110,   126,   127,
  337.    160,   161,   156,   279,   157,   118,   159,    90,    91,   120,
  338.    131,   179,   187,    37,    54,   285,   192,    63,    66,   195,
  339.    191,   110,   193,   247,   249,   250,   251,   232,   253,   254,
  340.    255,   202,   238,   252,   119,   218,   263,   264,   282,   199,
  341.    200,   164,   212,   203,   110,   164,    54,    54,    54,    54,
  342.     54,    54,   297,    53,    55,   298,    58,    59,    62,    65,
  343.    241,   267,   269,   207,   208,     0,   110,   209,     0,     0,
  344.     34,   178,   236,   145,   281,    83,    84,    85,    86,    87,
  345.      0,     0,    88,   233,     0,     0,    58,    54,   116,     0,
  346.    158,   259,    34,     0,    68,    34,     0,     0,   165,   243,
  347.    244,   245,   235,     0,     0,    34,   184,    46,     0,    34,
  348.      0,    57,     0,     0,     0,     0,     0,   246,   147,   148,
  349.    149,   150,   151,   152,     0,     0,   265,     0,     0,     0,
  350.      0,     0,     0,    46,    54,     0,     0,     0,     0,   178,
  351.      0,     0,     0,   177,     0,     0,   110,     0,   110,   276,
  352.      0,     0,   164,     0,     0,     0,     0,     0,     0,   188,
  353.      0,     0,   274,     0,   164,     0,     0,     0,   280,     0,
  354.    110,     0,     0,   110,     0,     0,     0,   110,     0,   110,
  355.    178,   178,   178,   178,     0,   178,   178,   178,   178,     0,
  356.      0,     0,     0,     7,     0,     0,     8,     9,   173,     0,
  357.      0,     0,     0,     0,     0,     0,    58,     0,     0,     0,
  358.    178,   177,   178,   178,   178,     0,   178,   178,   178,   178,
  359.    167,     0,     0,     0,    14,    15,     0,   260,    41,    41,
  360.    262,   178,   178,    18,    19,     0,    20,     0,    21,     0,
  361.      0,    22,    23,     0,   178,     0,    41,     0,     0,   167,
  362.    270,     0,   177,   177,   177,   177,     0,   177,   177,   177,
  363.    177,   211,    40,    40,     0,     0,   173,     0,     0,   132,
  364.    284,     0,   204,     0,     0,   287,   288,     0,     0,   291,
  365.     40,     0,   177,   293,   177,   177,   177,     0,   177,   177,
  366.    177,   177,     0,     0,   167,     0,     0,     0,     0,     0,
  367.      0,     0,     0,   177,   177,     0,     0,   173,   173,   173,
  368.    173,     0,   173,   173,   173,   173,   177,    41,    41,     0,
  369.      0,     0,   185,     0,     0,     0,     0,     0,    41,     0,
  370.    183,     0,     0,     0,   189,   190,     0,   173,     0,   173,
  371.    173,   173,     0,   173,   173,   173,   173,     0,     0,     0,
  372.      0,    40,    40,     0,     0,     0,     0,     0,   173,   173,
  373.      0,     0,    40,     0,     0,     0,     0,     0,     0,     0,
  374.      0,   173,     0,     0,   273,     0,   275,     0,     0,     0,
  375.     41,    41,     0,     0,     0,     0,   183,     0,     0,     0,
  376.      0,     0,     0,     0,     0,     0,     0,     0,   289,     0,
  377.      0,   292,     0,     0,     0,   294,     0,   295,   234,     0,
  378.      0,   237,     0,     0,    40,    40,     0,     0,     0,    41,
  379.    242,     0,     0,     0,   240,     0,     0,     0,     0,   -59,
  380.     64,     0,     6,     7,    41,     0,     8,     9,   257,     0,
  381.      0,     0,     1,     0,    10,    11,     0,     0,     0,     0,
  382.      0,     0,     0,    40,     0,     0,     0,     0,   266,    12,
  383.     13,     0,     0,     0,    14,    15,    16,    17,    40,     0,
  384.      0,     0,   277,    18,    19,     0,    20,     0,    21,    41,
  385.      0,    22,    23,   278,   283,    41,    24,   286,     0,     0,
  386.      0,     0,     0,   290,     0,     0,     0,     0,     0,     0,
  387.      0,     0,    92,     0,     6,     7,     0,     0,     8,     9,
  388.      0,     0,     0,    40,     0,     0,     0,     0,    93,    40,
  389.     94,    95,    96,    97,    98,    99,   100,   101,   102,   103,
  390.    104,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  391.      0,     0,     0,     0,     0,    18,    19,     0,    20,   166,
  392.     21,     6,     7,    22,    23,     8,     9,     0,    24,   105,
  393.     37,     0,     0,     0,     0,    93,     0,    94,    95,    96,
  394.     97,    98,    99,   100,   101,   102,   103,   104,     0,    13,
  395.      0,     0,     0,    14,    15,    16,    17,     0,     0,     0,
  396.      0,     0,    18,    19,     0,    20,    92,    21,     6,     7,
  397.     22,    23,     8,     9,     0,    24,   105,    37,     0,     0,
  398.      0,     0,    93,     0,    94,    95,    96,    97,    98,    99,
  399.    100,   101,   102,   103,   104,     0,    13,     0,     0,     0,
  400.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  401.     19,     0,    20,     0,    21,     0,     0,    22,    23,     0,
  402.      0,     0,    24,   169,    37,     6,     7,     0,     0,     8,
  403.      9,     0,   -76,     0,     0,   -76,     0,     0,     0,     0,
  404.      0,     0,     0,     0,     0,     7,     0,     0,     8,     9,
  405. -32768,     0,     0,   170,     0,     0,     0,    14,    15,    16,
  406.     17,     0,     0,     0,   -76,   -76,    18,    19,     0,    20,
  407.      0,   171,     0,     0,    22,   172,    14,    15,     6,     7,
  408.      0,   -76,     8,     9,    71,    18,    19,    72,    20,     0,
  409.    171,     0,     0,    22,    52,     0,     0,     0,     0,     0,
  410.      0,     0,     0,     0,     0,     0,    13,    73,    74,    75,
  411.     14,    15,    16,    17,    76,     0,    77,    78,    79,    18,
  412.     19,     0,    20,     0,    21,     6,     7,    22,    23,     8,
  413.      9,     0,     0,     0,     0,    80,     0,     0,     0,    93,
  414.      0,    94,    95,    96,    97,    98,    99,   100,   101,   102,
  415.    103,   104,     0,    13,     0,     0,     0,    14,    15,    16,
  416.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  417.      0,    21,     0,     0,    22,    23,     0,     0,     0,    24,
  418.      0,    37,     6,     7,     0,     0,     8,     9,    71,     0,
  419.      0,    72,     1,     0,     0,     0,     0,     0,     0,     0,
  420.      0,     0,     7,     0,     0,     8,     9,     0,     0,     0,
  421.     13,    73,    74,    75,    14,    15,    16,    17,    76,     0,
  422.     77,    78,    79,    18,    19,     0,    20,     0,    21,     0,
  423.      0,    22,    23,    14,    15,     6,     7,     0,    37,     8,
  424.      9,    71,    18,    19,    72,    20,     0,   171,     0,     0,
  425.     22,    52,     0,     0,     0,     0,     0,     0,     0,     0,
  426.      0,     0,     0,    13,    73,    74,    75,    14,    15,    16,
  427.     17,    76,     0,    77,    78,    79,    18,    19,     0,    20,
  428.      5,    21,     6,     7,    22,    23,     8,     9,     0,     0,
  429.      0,    37,     0,     0,    10,    11,     0,     0,     0,     0,
  430.      0,     0,     0,     0,     0,     0,     0,     6,     7,    12,
  431.     13,     8,     9,     0,    14,    15,    16,    17,     0,     0,
  432.      0,     0,     0,    18,    19,     0,    20,     0,    21,     0,
  433.      0,    22,    23,     0,     0,    13,    24,     0,     0,    14,
  434.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  435.      0,    20,    60,    21,     6,     7,    22,    23,     8,     9,
  436.      0,     0,     0,    37,     0,     0,     0,     0,     0,     0,
  437.      0,     0,    60,     0,     6,     7,     0,     0,     8,     9,
  438.      0,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  439.      0,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  440.     21,     0,    13,    22,    23,   -84,    14,    15,    16,    17,
  441.      0,     0,     0,     0,     0,    18,    19,     0,    20,   194,
  442.     21,     6,     7,    22,    23,     8,     9,     0,     0,     0,
  443.      0,     0,     0,     0,     0,     0,     0,     0,   248,     0,
  444.      6,     7,     0,     0,     8,     9,     0,     0,     0,    13,
  445.      0,     0,     0,    14,    15,    16,    17,     0,     0,     0,
  446.      0,     0,    18,    19,     0,    20,     0,    21,   170,     0,
  447.     22,    23,    14,    15,    16,    17,     0,     0,     0,     0,
  448.      0,    18,    19,     0,    20,     0,   171,     6,     7,    22,
  449.     52,     8,     9,    71,     0,     0,    72,     0,     0,     0,
  450.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  451.      0,     0,     0,     0,     0,    13,    73,    74,    75,    14,
  452.     15,    16,    17,    76,     0,    77,    78,    79,    18,    19,
  453.      0,    20,     0,    21,     0,     0,    22,    23,   131,     6,
  454.      7,     0,     0,     8,     9,    71,     0,     0,    72,     0,
  455.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  456.      0,     0,     0,     0,     0,     0,     0,    13,    73,    74,
  457.     75,    14,    15,    16,    17,    76,   197,    77,    78,    79,
  458.     18,    19,     0,    20,     0,    21,     6,     7,    22,    23,
  459.      8,     9,    71,     0,     0,    72,     0,     0,     0,     0,
  460.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  461.      0,     0,     0,     0,    13,    73,    74,    75,    14,    15,
  462.     16,    17,    76,     0,    77,    78,    79,    18,    19,     0,
  463.     20,     0,    21,     6,     7,    22,    23,     8,     9,    71,
  464.      0,     0,    72,     0,     0,     0,     0,     0,     0,     0,
  465.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  466.      0,    13,    73,    74,     0,    14,    15,    16,    17,     0,
  467.      0,    77,    78,    79,    18,    19,     0,    20,     0,    21,
  468.      6,     7,    22,    23,     8,     9,   219,     0,     0,   220,
  469.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  470.      0,     0,     0,     0,     0,     0,     0,     0,   170,   221,
  471.    222,   223,    14,    15,    16,    17,   224,   268,     0,     0,
  472.      0,    18,    19,     0,    20,     0,   171,     6,     7,    22,
  473.     52,     8,     9,    71,     0,     0,    72,     0,     0,     0,
  474.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  475.      0,     0,     0,     0,     0,    13,    73,     0,     0,    14,
  476.     15,    16,    17,     0,     0,    77,    78,    79,    18,    19,
  477.      0,    20,     0,    21,     6,     7,    22,    23,     8,     9,
  478.    219,     0,     0,   220,     0,     0,     0,     0,     0,     0,
  479.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  480.      0,     0,   170,   221,   222,   223,    14,    15,    16,    17,
  481.    224,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  482.    171,     6,     7,    22,    52,     8,     9,   219,     0,     0,
  483.    220,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  484.      0,     0,     0,     0,     0,     0,     0,     0,     0,   170,
  485.    221,   222,     0,    14,    15,    16,    17,     0,     0,     0,
  486.      0,     0,    18,    19,     0,    20,     0,   171,     6,     7,
  487.     22,    52,     8,     9,   219,     0,     0,   220,     0,     0,
  488.      0,     0,     0,     0,     0,     0,     0,     6,     7,     0,
  489.      0,     8,     9,     0,     0,     0,   170,   221,     0,     0,
  490.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  491.     19,     0,    20,     0,   171,    13,     0,    22,    52,    14,
  492.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  493.      0,    20,     0,    21,     6,   205,    22,    23,     8,     9,
  494.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  495.      0,     0,     0,     6,     7,     0,     0,     8,     9,     0,
  496.      0,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  497.      0,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  498.     21,   170,     0,    22,    23,    14,    15,    16,    17,     0,
  499.      0,     0,     0,     0,    18,    19,     0,    20,     0,   171,
  500.      6,     7,    22,    52,     8,     9,     0,     0,     0,     0,
  501.      0,     0,     0,     0,     0,     0,     0,     0,     0,     6,
  502.      7,     0,     0,     8,     9,     0,     0,     0,     0,     0,
  503.      0,     0,    14,    15,    16,    17,     0,     0,     0,     0,
  504.      0,    18,    19,     0,    20,     0,    51,     0,     0,    22,
  505.     52,    14,    15,    16,    17,     0,     0,     0,     0,     7,
  506.     18,    19,     8,     9,    71,    51,     0,-32768,    22,    52,
  507.      0,     0,     0,     0,     7,     0,     0,     8,     9,-32768,
  508.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  509.     14,    15,     0,     0,     0,     0,    77,    78,    79,    18,
  510.     19,     0,    20,     0,    21,    14,    15,    22,    23,     0,
  511.      0,-32768,-32768,-32768,    18,    19,     0,    20,     0,    21,
  512.      0,     7,    22,    23,     8,     9,   219,     0,     0,-32768,
  513.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  514.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  515.      0,     0,    14,    15,     0,     0,     0,     0,     0,     0,
  516.      0,    18,    19,     0,    20,     0,   171,     0,     0,    22,
  517.     52
  518. };
  519.  
  520. static const short yycheck[] = {     3,
  521.      1,    31,   155,    23,     1,   106,   159,     1,     1,    10,
  522.    111,     4,    13,    68,     4,    32,    36,   144,    10,    23,
  523.     53,    25,    11,     1,   108,     1,     1,    35,    36,    13,
  524.     34,    35,    36,    13,   135,    46,    47,    48,    55,    28,
  525.     51,    42,    43,   170,     1,    49,    50,     4,    52,    13,
  526.     42,    43,    13,     3,     4,    55,   111,    54,    59,    60,
  527.     54,    54,    52,    60,    68,    11,    60,    71,    72,    57,
  528.     74,    75,    76,    77,    78,    59,    54,    51,    82,   180,
  529.     56,    56,    60,    53,    60,    60,    13,    14,    15,    35,
  530.     36,    18,    19,    11,    21,    22,    57,    53,    59,    41,
  531.    104,     5,   106,     4,    53,    28,    31,   111,    49,    50,
  532.     99,   100,     4,   266,    53,    38,    53,    35,    36,    42,
  533.     54,   110,    53,    59,    51,   278,   130,    24,    25,   133,
  534.     47,   135,    32,   217,   218,   219,   220,     4,   222,   223,
  535.    224,    55,    21,     4,    41,   175,    53,     4,    18,   153,
  536.    154,   155,   172,   157,   158,   159,    83,    84,    85,    86,
  537.     87,    88,     0,    18,    19,     0,    21,    22,   172,    25,
  538.    210,   242,   256,   162,   163,    -1,   180,   168,    -1,    -1,
  539.      3,   108,   202,    80,   268,    44,    45,    46,    47,    48,
  540.     -1,    -1,    51,   197,    -1,    -1,    51,   124,   202,    -1,
  541.     97,   231,    25,    -1,    27,    28,    -1,    -1,   105,   213,
  542.    214,   215,   201,    -1,    -1,    38,   113,   144,    -1,    42,
  543.     -1,    21,    -1,    -1,    -1,    -1,    -1,   216,    83,    84,
  544.     85,    86,    87,    88,    -1,    -1,   240,    -1,    -1,    -1,
  545.     -1,    -1,    -1,   170,   171,    -1,    -1,    -1,    -1,   176,
  546.     -1,    -1,    -1,   108,    -1,    -1,   260,    -1,   262,   263,
  547.     -1,    -1,   266,    -1,    -1,    -1,    -1,    -1,    -1,   124,
  548.     -1,    -1,   261,    -1,   278,    -1,    -1,    -1,   267,    -1,
  549.    284,    -1,    -1,   287,    -1,    -1,    -1,   291,    -1,   293,
  550.    217,   218,   219,   220,    -1,   222,   223,   224,   225,    -1,
  551.     -1,    -1,    -1,     4,    -1,    -1,     7,     8,   108,    -1,
  552.     -1,    -1,    -1,    -1,    -1,    -1,   171,    -1,    -1,    -1,
  553.    247,   176,   249,   250,   251,    -1,   253,   254,   255,   256,
  554.    106,    -1,    -1,    -1,    35,    36,    -1,   234,    10,    11,
  555.    237,   268,   269,    44,    45,    -1,    47,    -1,    49,    -1,
  556.     -1,    52,    53,    -1,   281,    -1,    28,    -1,    -1,   135,
  557.    257,    -1,   217,   218,   219,   220,    -1,   222,   223,   224,
  558.    225,   171,    10,    11,    -1,    -1,   176,    -1,    -1,    61,
  559.    277,    -1,   158,    -1,    -1,   282,   283,    -1,    -1,   286,
  560.     28,    -1,   247,   290,   249,   250,   251,    -1,   253,   254,
  561.    255,   256,    -1,    -1,   180,    -1,    -1,    -1,    -1,    -1,
  562.     -1,    -1,    -1,   268,   269,    -1,    -1,   217,   218,   219,
  563.    220,    -1,   222,   223,   224,   225,   281,    99,   100,    -1,
  564.     -1,    -1,   114,    -1,    -1,    -1,    -1,    -1,   110,    -1,
  565.    112,    -1,    -1,    -1,   126,   127,    -1,   247,    -1,   249,
  566.    250,   251,    -1,   253,   254,   255,   256,    -1,    -1,    -1,
  567.     -1,    99,   100,    -1,    -1,    -1,    -1,    -1,   268,   269,
  568.     -1,    -1,   110,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  569.     -1,   281,    -1,    -1,   260,    -1,   262,    -1,    -1,    -1,
  570.    162,   163,    -1,    -1,    -1,    -1,   168,    -1,    -1,    -1,
  571.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   284,    -1,
  572.     -1,   287,    -1,    -1,    -1,   291,    -1,   293,   200,    -1,
  573.     -1,   203,    -1,    -1,   162,   163,    -1,    -1,    -1,   201,
  574.    212,    -1,    -1,    -1,   206,    -1,    -1,    -1,    -1,     0,
  575.      1,    -1,     3,     4,   216,    -1,     7,     8,   230,    -1,
  576.     -1,    -1,    13,    -1,    15,    16,    -1,    -1,    -1,    -1,
  577.     -1,    -1,    -1,   201,    -1,    -1,    -1,    -1,   240,    30,
  578.     31,    -1,    -1,    -1,    35,    36,    37,    38,   216,    -1,
  579.     -1,    -1,   264,    44,    45,    -1,    47,    -1,    49,   261,
  580.     -1,    52,    53,   265,   276,   267,    57,   279,    -1,    -1,
  581.     -1,    -1,    -1,   285,    -1,    -1,    -1,    -1,    -1,    -1,
  582.     -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,     8,
  583.     -1,    -1,    -1,   261,    -1,    -1,    -1,    -1,    17,   267,
  584.     19,    20,    21,    22,    23,    24,    25,    26,    27,    28,
  585.     29,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  586.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,     1,
  587.     49,     3,     4,    52,    53,     7,     8,    -1,    57,    58,
  588.     59,    -1,    -1,    -1,    -1,    17,    -1,    19,    20,    21,
  589.     22,    23,    24,    25,    26,    27,    28,    29,    -1,    31,
  590.     -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  591.     -1,    -1,    44,    45,    -1,    47,     1,    49,     3,     4,
  592.     52,    53,     7,     8,    -1,    57,    58,    59,    -1,    -1,
  593.     -1,    -1,    17,    -1,    19,    20,    21,    22,    23,    24,
  594.     25,    26,    27,    28,    29,    -1,    31,    -1,    -1,    -1,
  595.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  596.     45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,    -1,
  597.     -1,    -1,    57,     1,    59,     3,     4,    -1,    -1,     7,
  598.      8,    -1,    10,    -1,    -1,    13,    -1,    -1,    -1,    -1,
  599.     -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,     7,     8,
  600.      9,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,
  601.     38,    -1,    -1,    -1,    42,    43,    44,    45,    -1,    47,
  602.     -1,    49,    -1,    -1,    52,    53,    35,    36,     3,     4,
  603.     -1,    59,     7,     8,     9,    44,    45,    12,    47,    -1,
  604.     49,    -1,    -1,    52,    53,    -1,    -1,    -1,    -1,    -1,
  605.     -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,    34,
  606.     35,    36,    37,    38,    39,    -1,    41,    42,    43,    44,
  607.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  608.      8,    -1,    -1,    -1,    -1,    60,    -1,    -1,    -1,    17,
  609.     -1,    19,    20,    21,    22,    23,    24,    25,    26,    27,
  610.     28,    29,    -1,    31,    -1,    -1,    -1,    35,    36,    37,
  611.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  612.     -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,    57,
  613.     -1,    59,     3,     4,    -1,    -1,     7,     8,     9,    -1,
  614.     -1,    12,    13,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  615.     -1,    -1,     4,    -1,    -1,     7,     8,    -1,    -1,    -1,
  616.     31,    32,    33,    34,    35,    36,    37,    38,    39,    -1,
  617.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,    -1,
  618.     -1,    52,    53,    35,    36,     3,     4,    -1,    59,     7,
  619.      8,     9,    44,    45,    12,    47,    -1,    49,    -1,    -1,
  620.     52,    53,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  621.     -1,    -1,    -1,    31,    32,    33,    34,    35,    36,    37,
  622.     38,    39,    -1,    41,    42,    43,    44,    45,    -1,    47,
  623.      1,    49,     3,     4,    52,    53,     7,     8,    -1,    -1,
  624.     -1,    59,    -1,    -1,    15,    16,    -1,    -1,    -1,    -1,
  625.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,    30,
  626.     31,     7,     8,    -1,    35,    36,    37,    38,    -1,    -1,
  627.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,    -1,
  628.     -1,    52,    53,    -1,    -1,    31,    57,    -1,    -1,    35,
  629.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  630.     -1,    47,     1,    49,     3,     4,    52,    53,     7,     8,
  631.     -1,    -1,    -1,    59,    -1,    -1,    -1,    -1,    -1,    -1,
  632.     -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,     8,
  633.     -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  634.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  635.     49,    -1,    31,    52,    53,    54,    35,    36,    37,    38,
  636.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,     1,
  637.     49,     3,     4,    52,    53,     7,     8,    -1,    -1,    -1,
  638.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     1,    -1,
  639.      3,     4,    -1,    -1,     7,     8,    -1,    -1,    -1,    31,
  640.     -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  641.     -1,    -1,    44,    45,    -1,    47,    -1,    49,    31,    -1,
  642.     52,    53,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  643.     -1,    44,    45,    -1,    47,    -1,    49,     3,     4,    52,
  644.     53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,
  645.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  646.     -1,    -1,    -1,    -1,    -1,    31,    32,    33,    34,    35,
  647.     36,    37,    38,    39,    -1,    41,    42,    43,    44,    45,
  648.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    54,     3,
  649.      4,    -1,    -1,     7,     8,     9,    -1,    -1,    12,    -1,
  650.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  651.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  652.     34,    35,    36,    37,    38,    39,    40,    41,    42,    43,
  653.     44,    45,    -1,    47,    -1,    49,     3,     4,    52,    53,
  654.      7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,
  655.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  656.     -1,    -1,    -1,    -1,    31,    32,    33,    34,    35,    36,
  657.     37,    38,    39,    -1,    41,    42,    43,    44,    45,    -1,
  658.     47,    -1,    49,     3,     4,    52,    53,     7,     8,     9,
  659.     -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  660.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  661.     -1,    31,    32,    33,    -1,    35,    36,    37,    38,    -1,
  662.     -1,    41,    42,    43,    44,    45,    -1,    47,    -1,    49,
  663.      3,     4,    52,    53,     7,     8,     9,    -1,    -1,    12,
  664.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  665.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,
  666.     33,    34,    35,    36,    37,    38,    39,    40,    -1,    -1,
  667.     -1,    44,    45,    -1,    47,    -1,    49,     3,     4,    52,
  668.     53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,
  669.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  670.     -1,    -1,    -1,    -1,    -1,    31,    32,    -1,    -1,    35,
  671.     36,    37,    38,    -1,    -1,    41,    42,    43,    44,    45,
  672.     -1,    47,    -1,    49,     3,     4,    52,    53,     7,     8,
  673.      9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,
  674.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  675.     -1,    -1,    31,    32,    33,    34,    35,    36,    37,    38,
  676.     39,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  677.     49,     3,     4,    52,    53,     7,     8,     9,    -1,    -1,
  678.     12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  679.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  680.     32,    33,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  681.     -1,    -1,    44,    45,    -1,    47,    -1,    49,     3,     4,
  682.     52,    53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,
  683.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,    -1,
  684.     -1,     7,     8,    -1,    -1,    -1,    31,    32,    -1,    -1,
  685.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  686.     45,    -1,    47,    -1,    49,    31,    -1,    52,    53,    35,
  687.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  688.     -1,    47,    -1,    49,     3,     4,    52,    53,     7,     8,
  689.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  690.     -1,    -1,    -1,     3,     4,    -1,    -1,     7,     8,    -1,
  691.     -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  692.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  693.     49,    31,    -1,    52,    53,    35,    36,    37,    38,    -1,
  694.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  695.      3,     4,    52,    53,     7,     8,    -1,    -1,    -1,    -1,
  696.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,
  697.      4,    -1,    -1,     7,     8,    -1,    -1,    -1,    -1,    -1,
  698.     -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  699.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  700.     53,    35,    36,    37,    38,    -1,    -1,    -1,    -1,     4,
  701.     44,    45,     7,     8,     9,    49,    -1,    12,    52,    53,
  702.     -1,    -1,    -1,    -1,     4,    -1,    -1,     7,     8,     9,
  703.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  704.     35,    36,    -1,    -1,    -1,    -1,    41,    42,    43,    44,
  705.     45,    -1,    47,    -1,    49,    35,    36,    52,    53,    -1,
  706.     -1,    41,    42,    43,    44,    45,    -1,    47,    -1,    49,
  707.     -1,     4,    52,    53,     7,     8,     9,    -1,    -1,    12,
  708.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  709.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  710.     -1,    -1,    35,    36,    -1,    -1,    -1,    -1,    -1,    -1,
  711.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  712.     53
  713. };
  714. #define YYPURE 1
  715.  
  716. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  717. #line 3 "bison.simple"
  718.  
  719. /* Skeleton output parser for bison,
  720.    Copyright (C) 1984 Bob Corbett and Richard Stallman
  721.  
  722.    This program is free software; you can redistribute it and/or modify
  723.    it under the terms of the GNU General Public License as published by
  724.    the Free Software Foundation; either version 1, or (at your option)
  725.    any later version.
  726.  
  727.    This program is distributed in the hope that it will be useful,
  728.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  729.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  730.    GNU General Public License for more details.
  731.  
  732.    You should have received a copy of the GNU General Public License
  733.    along with this program; if not, write to the Free Software
  734.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  735.  
  736.  
  737. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  738. #include <alloca.h>
  739. #endif
  740.  
  741. /* This is the parser code that is written into each bison parser
  742.   when the %semantic_parser declaration is not specified in the grammar.
  743.   It was written by Richard Stallman by simplifying the hairy parser
  744.   used when %semantic_parser is specified.  */
  745.  
  746. /* Note: there must be only one dollar sign in this file.
  747.    It is replaced by the list of actions, each action
  748.    as one case of the switch.  */
  749.  
  750. #define yyerrok        (yyerrstatus = 0)
  751. #define yyclearin    (yychar = YYEMPTY)
  752. #define YYEMPTY        -2
  753. #define YYEOF        0
  754. #define YYFAIL        goto yyerrlab;
  755. #define YYACCEPT    return(0)
  756. #define YYABORT     return(1)
  757. #define YYERROR        goto yyerrlab
  758.  
  759. #define YYTERROR    1
  760. #define YYERRCODE    256
  761.  
  762. #ifndef YYIMPURE
  763. #define YYLEX        yylex()
  764. #endif
  765.  
  766. #ifndef YYPURE
  767. #define YYLEX        yylex(&yylval, &yylloc)
  768. #endif
  769.  
  770. /* If nonreentrant, generate the variables here */
  771.  
  772. #ifndef YYIMPURE
  773.  
  774. int    yychar;            /*  the lookahead symbol        */
  775. YYSTYPE    yylval;            /*  the semantic value of the        */
  776.                 /*  lookahead symbol            */
  777.  
  778. YYLTYPE yylloc;            /*  location data for the lookahead    */
  779.                 /*  symbol                */
  780.  
  781. int yynerrs;            /*  number of parse errors so far       */
  782. #endif  /* YYIMPURE */
  783.  
  784. #if YYDEBUG != 0
  785. int yydebug;            /*  nonzero means print parse trace    */
  786. /* Since this is uninitialized, it does not stop multiple parsers
  787.    from coexisting.  */
  788. #endif
  789.  
  790. /*  YYMAXDEPTH indicates the initial size of the parser's stacks    */
  791.  
  792. #ifndef    YYMAXDEPTH
  793. #define YYMAXDEPTH 200
  794. #endif
  795.  
  796. /*  YYMAXLIMIT is the maximum size the stacks can grow to
  797.     (effective only if the built-in stack extension method is used).  */
  798.  
  799. #ifndef YYMAXLIMIT
  800. #define YYMAXLIMIT 10000
  801. #endif
  802.  
  803.  
  804. #line 90 "bison.simple"
  805. int
  806. yyparse()
  807. {
  808.   register int yystate;
  809.   register int yyn;
  810.   register short *yyssp;
  811.   register YYSTYPE *yyvsp;
  812.   YYLTYPE *yylsp;
  813.   int yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  814.   int yychar1;        /*  lookahead token as an internal (translated) token number */
  815.  
  816.   short    yyssa[YYMAXDEPTH];    /*  the state stack            */
  817.   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack        */
  818.   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack            */
  819.  
  820.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  821.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  822.   YYLTYPE *yyls = yylsa;
  823.  
  824.   int yymaxdepth = YYMAXDEPTH;
  825.  
  826. #ifndef YYPURE
  827.   int yychar;
  828.   YYSTYPE yylval;
  829.   YYLTYPE yylloc;
  830.   int yynerrs;
  831. #endif
  832.  
  833.   YYSTYPE yyval;        /*  the variable used to return        */
  834.                 /*  semantic values from the action    */
  835.                 /*  routines                */
  836.  
  837.   int yylen;
  838.  
  839. #if YYDEBUG != 0
  840.   if (yydebug)
  841.     fprintf(stderr, "Starting parse\n");
  842. #endif
  843.  
  844.   yystate = 0;
  845.   yyerrstatus = 0;
  846.   yynerrs = 0;
  847.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  848.  
  849.   /* Initialize stack pointers.
  850.      Waste one element of value and location stack
  851.      so that they stay on the same level as the state stack.  */
  852.  
  853.   yyssp = yyss - 1;
  854.   yyvsp = yyvs;
  855.   yylsp = yyls;
  856.  
  857. /* Push a new state, which is found in  yystate  .  */
  858. /* In all cases, when you get here, the value and location stacks
  859.    have just been pushed. so pushing a state here evens the stacks.  */
  860. yynewstate:
  861.  
  862.   *++yyssp = yystate;
  863.  
  864.   if (yyssp >= yyss + yymaxdepth - 1)
  865.     {
  866.       /* Give user a chance to reallocate the stack */
  867.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  868.       YYSTYPE *yyvs1 = yyvs;
  869.       YYLTYPE *yyls1 = yyls;
  870.       short *yyss1 = yyss;
  871.  
  872.       /* Get the current used size of the three stacks, in elements.  */
  873.       int size = yyssp - yyss + 1;
  874.  
  875. #ifdef yyoverflow
  876.       /* Each stack pointer address is followed by the size of
  877.      the data in use in that stack, in bytes.  */
  878.       yyoverflow("parser stack overflow",
  879.          &yyss1, size * sizeof (*yyssp),
  880.          &yyvs1, size * sizeof (*yyvsp),
  881.          &yyls1, size * sizeof (*yylsp),
  882.          &yymaxdepth);
  883.  
  884.       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  885. #else /* no yyoverflow */
  886.       /* Extend the stack our own way.  */
  887.       if (yymaxdepth >= YYMAXLIMIT)
  888.     yyerror("parser stack overflow");
  889.       yymaxdepth *= 2;
  890.       if (yymaxdepth > YYMAXLIMIT)
  891.     yymaxdepth = YYMAXLIMIT;
  892.       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  893.       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  894.       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  895.       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  896. #ifdef YYLSP_NEEDED
  897.       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  898.       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  899. #endif
  900. #endif /* no yyoverflow */
  901.  
  902.       yyssp = yyss + size - 1;
  903.       yyvsp = yyvs + size - 1;
  904. #ifdef YYLSP_NEEDED
  905.       yylsp = yyls + size - 1;
  906. #endif
  907.  
  908. #if YYDEBUG != 0
  909.       if (yydebug)
  910.     fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  911. #endif
  912.  
  913.       if (yyssp >= yyss + yymaxdepth - 1)
  914.     YYABORT;
  915.     }
  916.  
  917. #if YYDEBUG != 0
  918.   if (yydebug)
  919.     fprintf(stderr, "Entering state %d\n", yystate);
  920. #endif
  921.  
  922. /* Do appropriate processing given the current state.  */
  923. /* Read a lookahead token if we need one and don't already have one.  */
  924. yyresume:
  925.  
  926.   /* First try to decide what to do without reference to lookahead token.  */
  927.  
  928.   yyn = yypact[yystate];
  929.   if (yyn == YYFLAG)
  930.     goto yydefault;
  931.  
  932.   /* Not known => get a lookahead token if don't already have one.  */
  933.  
  934.   /* yychar is either YYEMPTY or YYEOF
  935.      or a valid token in external form.  */
  936.  
  937.   if (yychar == YYEMPTY)
  938.     {
  939. #if YYDEBUG != 0
  940.       if (yydebug)
  941.     fprintf(stderr, "Reading a token: ");
  942. #endif
  943.       yychar = YYLEX;
  944.     }
  945.  
  946.   /* Convert token to internal form (in yychar1) for indexing tables with */
  947.  
  948.   if (yychar <= 0)        /* This means end of input. */
  949.     {
  950.       yychar1 = 0;
  951.       yychar = YYEOF;        /* Don't call YYLEX any more */
  952.  
  953. #if YYDEBUG != 0
  954.       if (yydebug)
  955.     fprintf(stderr, "Now at end of input.\n");
  956. #endif
  957.     }
  958.   else
  959.     {
  960.       yychar1 = YYTRANSLATE(yychar);
  961.  
  962. #if YYDEBUG != 0
  963.       if (yydebug)
  964.     fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  965. #endif
  966.     }
  967.  
  968.   yyn += yychar1;
  969.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  970.     goto yydefault;
  971.  
  972.   yyn = yytable[yyn];
  973.  
  974.   /* yyn is what to do for this token type in this state.
  975.      Negative => reduce, -yyn is rule number.
  976.      Positive => shift, yyn is new state.
  977.        New state is final state => don't bother to shift,
  978.        just return success.
  979.      0, or most negative number => error.  */
  980.  
  981.   if (yyn < 0)
  982.     {
  983.       if (yyn == YYFLAG)
  984.     goto yyerrlab;
  985.       yyn = -yyn;
  986.       goto yyreduce;
  987.     }
  988.   else if (yyn == 0)
  989.     goto yyerrlab;
  990.  
  991.   if (yyn == YYFINAL)
  992.     YYACCEPT;
  993.  
  994.   /* Shift the lookahead token.  */
  995.  
  996. #if YYDEBUG != 0
  997.   if (yydebug)
  998.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  999. #endif
  1000.  
  1001.   /* Discard the token being shifted unless it is eof.  */
  1002.   if (yychar != YYEOF)
  1003.     yychar = YYEMPTY;
  1004.  
  1005.   *++yyvsp = yylval;
  1006. #ifdef YYLSP_NEEDED
  1007.   *++yylsp = yylloc;
  1008. #endif
  1009.  
  1010.   /* count tokens shifted since error; after three, turn off error status.  */
  1011.   if (yyerrstatus) yyerrstatus--;
  1012.  
  1013.   yystate = yyn;
  1014.   goto yynewstate;
  1015.  
  1016. /* Do the default action for the current state.  */
  1017. yydefault:
  1018.  
  1019.   yyn = yydefact[yystate];
  1020.   if (yyn == 0)
  1021.     goto yyerrlab;
  1022.  
  1023. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1024. yyreduce:
  1025.   yylen = yyr2[yyn];
  1026.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1027.  
  1028. #if YYDEBUG != 0
  1029.   if (yydebug)
  1030.     {
  1031.       if (yylen == 1)
  1032.     fprintf (stderr, "Reducing 1 value via line %d, ",
  1033.          yyrline[yyn]);
  1034.       else
  1035.     fprintf (stderr, "Reducing %d values via line %d, ",
  1036.          yylen, yyrline[yyn]);
  1037.     }
  1038. #endif
  1039.  
  1040.  
  1041.   switch (yyn) {
  1042.  
  1043. case 1:
  1044. #line 137 "awk.y"
  1045. { expression_value = yyvsp[-1].nodeval; ;
  1046.     break;}
  1047. case 2:
  1048. #line 142 "awk.y"
  1049. { 
  1050.             if (yyvsp[0].nodeval != NULL)
  1051.                 yyval.nodeval = yyvsp[0].nodeval;
  1052.             else
  1053.                 yyval.nodeval = NULL;
  1054.             yyerrok;
  1055.         ;
  1056.     break;}
  1057. case 3:
  1058. #line 151 "awk.y"
  1059. {
  1060.             if (yyvsp[0].nodeval == NULL)
  1061.                 yyval.nodeval = yyvsp[-1].nodeval;
  1062.             else if (yyvsp[-1].nodeval == NULL)
  1063.                 yyval.nodeval = yyvsp[0].nodeval;
  1064.             else {
  1065.                 if (yyvsp[-1].nodeval->type != Node_rule_list)
  1066.                     yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
  1067.                         (NODE*)NULL);
  1068.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  1069.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  1070.             }
  1071.             yyerrok;
  1072.         ;
  1073.     break;}
  1074. case 4:
  1075. #line 165 "awk.y"
  1076. { yyval.nodeval = NULL; ;
  1077.     break;}
  1078. case 5:
  1079. #line 166 "awk.y"
  1080. { yyval.nodeval = NULL; ;
  1081.     break;}
  1082. case 6:
  1083. #line 170 "awk.y"
  1084. { io_allowed = 0; ;
  1085.     break;}
  1086. case 7:
  1087. #line 172 "awk.y"
  1088. {
  1089.         if (begin_block) {
  1090.             if (begin_block->type != Node_rule_list)
  1091.                 begin_block = node(begin_block, Node_rule_list,
  1092.                     (NODE *)NULL);
  1093.             append_right (begin_block, node(
  1094.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1095.                 Node_rule_list, (NODE *)NULL) );
  1096.         } else
  1097.             begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1098.         yyval.nodeval = NULL;
  1099.         io_allowed = 1;
  1100.         yyerrok;
  1101.       ;
  1102.     break;}
  1103. case 8:
  1104. #line 186 "awk.y"
  1105. { io_allowed = 0; ;
  1106.     break;}
  1107. case 9:
  1108. #line 188 "awk.y"
  1109. {
  1110.         if (end_block) {
  1111.             if (end_block->type != Node_rule_list)
  1112.                 end_block = node(end_block, Node_rule_list,
  1113.                     (NODE *)NULL);
  1114.             append_right (end_block, node(
  1115.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1116.                 Node_rule_list, (NODE *)NULL));
  1117.         } else
  1118.             end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1119.         yyval.nodeval = NULL;
  1120.         io_allowed = 1;
  1121.         yyerrok;
  1122.       ;
  1123.     break;}
  1124. case 10:
  1125. #line 203 "awk.y"
  1126. {
  1127.         msg ("error near line %d: BEGIN blocks must have an action part", lineno);
  1128.         errcount++;
  1129.         yyerrok;
  1130.       ;
  1131.     break;}
  1132. case 11:
  1133. #line 209 "awk.y"
  1134. {
  1135.         msg ("error near line %d: END blocks must have an action part", lineno);
  1136.         errcount++;
  1137.         yyerrok;
  1138.       ;
  1139.     break;}
  1140. case 12:
  1141. #line 215 "awk.y"
  1142. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1143.     break;}
  1144. case 13:
  1145. #line 217 "awk.y"
  1146. { yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1147.     break;}
  1148. case 14:
  1149. #line 219 "awk.y"
  1150. { if(yyvsp[-1].nodeval) yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, (NODE *)NULL); yyerrok; ;
  1151.     break;}
  1152. case 15:
  1153. #line 221 "awk.y"
  1154. {
  1155.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  1156.             yyval.nodeval = NULL;
  1157.             yyerrok;
  1158.         ;
  1159.     break;}
  1160. case 16:
  1161. #line 230 "awk.y"
  1162. { yyval.sval = yyvsp[0].sval; ;
  1163.     break;}
  1164. case 17:
  1165. #line 232 "awk.y"
  1166. { yyval.sval = yyvsp[0].sval; ;
  1167.     break;}
  1168. case 18:
  1169. #line 237 "awk.y"
  1170. {
  1171.             param_counter = 0;
  1172.         ;
  1173.     break;}
  1174. case 19:
  1175. #line 241 "awk.y"
  1176. {
  1177.             yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
  1178.             can_return = 1;
  1179.         ;
  1180.     break;}
  1181. case 20:
  1182. #line 249 "awk.y"
  1183. {
  1184.         yyval.nodeval = yyvsp[-1].nodeval;
  1185.         can_return = 0;
  1186.       ;
  1187.     break;}
  1188. case 21:
  1189. #line 258 "awk.y"
  1190. { yyval.nodeval = yyvsp[0].nodeval; ;
  1191.     break;}
  1192. case 22:
  1193. #line 260 "awk.y"
  1194. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  1195.     break;}
  1196. case 23:
  1197. #line 269 "awk.y"
  1198. { ++want_regexp; ;
  1199.     break;}
  1200. case 24:
  1201. #line 271 "awk.y"
  1202. {
  1203.           want_regexp = 0;
  1204.           yyval.nodeval = node((NODE *)NULL,Node_regex,(NODE *)mk_re_parse(yyvsp[-1].sval, 0));
  1205.           yyval.nodeval -> re_case = 0;
  1206.           emalloc (yyval.nodeval -> re_text, char *, strlen(yyvsp[-1].sval)+1, "regexp");
  1207.           strcpy (yyval.nodeval -> re_text, yyvsp[-1].sval);
  1208.         ;
  1209.     break;}
  1210. case 25:
  1211. #line 282 "awk.y"
  1212. {
  1213.             /* empty actions are different from missing actions */
  1214.             yyval.nodeval = node ((NODE *) NULL, Node_illegal, (NODE *) NULL);
  1215.         ;
  1216.     break;}
  1217. case 26:
  1218. #line 287 "awk.y"
  1219. { yyval.nodeval = yyvsp[-2].nodeval ; ;
  1220.     break;}
  1221. case 27:
  1222. #line 292 "awk.y"
  1223. { yyval.nodeval = yyvsp[0].nodeval; ;
  1224.     break;}
  1225. case 28:
  1226. #line 294 "awk.y"
  1227. {
  1228.             if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
  1229.                 yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
  1230.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1231.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1232.                 yyerrok;
  1233.         ;
  1234.     break;}
  1235. case 29:
  1236. #line 302 "awk.y"
  1237. { yyval.nodeval = NULL; ;
  1238.     break;}
  1239. case 30:
  1240. #line 304 "awk.y"
  1241. { yyval.nodeval = NULL; ;
  1242.     break;}
  1243. case 31:
  1244. #line 309 "awk.y"
  1245. { yyval.nodetypeval = Node_illegal; ;
  1246.     break;}
  1247. case 32:
  1248. #line 311 "awk.y"
  1249. { yyval.nodetypeval = Node_illegal; ;
  1250.     break;}
  1251. case 33:
  1252. #line 317 "awk.y"
  1253. { yyval.nodeval = NULL; ;
  1254.     break;}
  1255. case 34:
  1256. #line 319 "awk.y"
  1257. { yyval.nodeval = NULL; ;
  1258.     break;}
  1259. case 35:
  1260. #line 321 "awk.y"
  1261. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1262.     break;}
  1263. case 36:
  1264. #line 323 "awk.y"
  1265. { yyval.nodeval = yyvsp[0].nodeval; ;
  1266.     break;}
  1267. case 37:
  1268. #line 325 "awk.y"
  1269. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1270.     break;}
  1271. case 38:
  1272. #line 327 "awk.y"
  1273. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1274.     break;}
  1275. case 39:
  1276. #line 329 "awk.y"
  1277. {
  1278.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval),
  1279.             (NODE *)NULL, variable(yyvsp[-3].sval)));
  1280.       ;
  1281.     break;}
  1282. case 40:
  1283. #line 334 "awk.y"
  1284. {
  1285.         yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
  1286.       ;
  1287.     break;}
  1288. case 41:
  1289. #line 338 "awk.y"
  1290. {
  1291.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
  1292.             (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
  1293.       ;
  1294.     break;}
  1295. case 42:
  1296. #line 344 "awk.y"
  1297. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1298.     break;}
  1299. case 43:
  1300. #line 347 "awk.y"
  1301. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1302.     break;}
  1303. case 44:
  1304. #line 349 "awk.y"
  1305. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1306.     break;}
  1307. case 45:
  1308. #line 351 "awk.y"
  1309. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval); ;
  1310.     break;}
  1311. case 46:
  1312. #line 353 "awk.y"
  1313. { if (! io_allowed) yyerror("next used in BEGIN or END action"); ;
  1314.     break;}
  1315. case 47:
  1316. #line 355 "awk.y"
  1317. { yyval.nodeval = node ((NODE *)NULL, Node_K_next, (NODE *)NULL); ;
  1318.     break;}
  1319. case 48:
  1320. #line 357 "awk.y"
  1321. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1322.     break;}
  1323. case 49:
  1324. #line 359 "awk.y"
  1325. { if (! can_return) yyerror("return used outside function context"); ;
  1326.     break;}
  1327. case 50:
  1328. #line 361 "awk.y"
  1329. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1330.     break;}
  1331. case 51:
  1332. #line 363 "awk.y"
  1333. { yyval.nodeval = node (variable(yyvsp[-4].sval), Node_K_delete, yyvsp[-2].nodeval); ;
  1334.     break;}
  1335. case 52:
  1336. #line 365 "awk.y"
  1337. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1338.     break;}
  1339. case 53:
  1340. #line 370 "awk.y"
  1341. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1342.     break;}
  1343. case 54:
  1344. #line 372 "awk.y"
  1345. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1346.     break;}
  1347. case 55:
  1348. #line 377 "awk.y"
  1349. {
  1350.         yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if, 
  1351.             node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
  1352.       ;
  1353.     break;}
  1354. case 56:
  1355. #line 383 "awk.y"
  1356. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1357.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1358.     break;}
  1359. case 57:
  1360. #line 389 "awk.y"
  1361. { yyval.nodetypeval = NULL; ;
  1362.     break;}
  1363. case 58:
  1364. #line 391 "awk.y"
  1365. { yyval.nodetypeval = NULL; ;
  1366.     break;}
  1367. case 59:
  1368. #line 396 "awk.y"
  1369. { yyval.nodetypeval = NULL; ;
  1370.     break;}
  1371. case 60:
  1372. #line 398 "awk.y"
  1373. { yyval.nodetypeval = NULL; ;
  1374.     break;}
  1375. case 61:
  1376. #line 403 "awk.y"
  1377. { yyval.nodeval = NULL; ;
  1378.     break;}
  1379. case 62:
  1380. #line 405 "awk.y"
  1381. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
  1382.     break;}
  1383. case 63:
  1384. #line 410 "awk.y"
  1385. { yyval.nodeval = NULL; ;
  1386.     break;}
  1387. case 64:
  1388. #line 412 "awk.y"
  1389. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
  1390.     break;}
  1391. case 65:
  1392. #line 414 "awk.y"
  1393. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
  1394.     break;}
  1395. case 66:
  1396. #line 416 "awk.y"
  1397. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
  1398.     break;}
  1399. case 67:
  1400. #line 421 "awk.y"
  1401. { yyval.nodeval = NULL; ;
  1402.     break;}
  1403. case 68:
  1404. #line 423 "awk.y"
  1405. { yyval.nodeval = yyvsp[0].nodeval; ;
  1406.     break;}
  1407. case 69:
  1408. #line 428 "awk.y"
  1409. { yyval.nodeval = make_param(yyvsp[0].sval); ;
  1410.     break;}
  1411. case 70:
  1412. #line 430 "awk.y"
  1413. { yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
  1414.     break;}
  1415. case 71:
  1416. #line 432 "awk.y"
  1417. { yyval.nodeval = NULL; ;
  1418.     break;}
  1419. case 72:
  1420. #line 434 "awk.y"
  1421. { yyval.nodeval = NULL; ;
  1422.     break;}
  1423. case 73:
  1424. #line 436 "awk.y"
  1425. { yyval.nodeval = NULL; ;
  1426.     break;}
  1427. case 74:
  1428. #line 442 "awk.y"
  1429. { yyval.nodeval = NULL; ;
  1430.     break;}
  1431. case 75:
  1432. #line 444 "awk.y"
  1433. { yyval.nodeval = yyvsp[0].nodeval; ;
  1434.     break;}
  1435. case 76:
  1436. #line 449 "awk.y"
  1437. { yyval.nodeval = NULL; ;
  1438.     break;}
  1439. case 77:
  1440. #line 451 "awk.y"
  1441. { yyval.nodeval = yyvsp[0].nodeval; ;
  1442.     break;}
  1443. case 78:
  1444. #line 456 "awk.y"
  1445. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1446.     break;}
  1447. case 79:
  1448. #line 458 "awk.y"
  1449. {
  1450.         yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1451.             node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1452.         yyerrok;
  1453.       ;
  1454.     break;}
  1455. case 80:
  1456. #line 464 "awk.y"
  1457. { yyval.nodeval = NULL; ;
  1458.     break;}
  1459. case 81:
  1460. #line 466 "awk.y"
  1461. { yyval.nodeval = NULL; ;
  1462.     break;}
  1463. case 82:
  1464. #line 468 "awk.y"
  1465. { yyval.nodeval = NULL; ;
  1466.     break;}
  1467. case 83:
  1468. #line 470 "awk.y"
  1469. { yyval.nodeval = NULL; ;
  1470.     break;}
  1471. case 84:
  1472. #line 475 "awk.y"
  1473. { yyval.nodeval = NULL; ;
  1474.     break;}
  1475. case 85:
  1476. #line 477 "awk.y"
  1477. { yyval.nodeval = yyvsp[0].nodeval; ;
  1478.     break;}
  1479. case 86:
  1480. #line 482 "awk.y"
  1481. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1482.     break;}
  1483. case 87:
  1484. #line 484 "awk.y"
  1485. {
  1486.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1487.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1488.             yyerrok;
  1489.         ;
  1490.     break;}
  1491. case 88:
  1492. #line 490 "awk.y"
  1493. { yyval.nodeval = NULL; ;
  1494.     break;}
  1495. case 89:
  1496. #line 492 "awk.y"
  1497. { yyval.nodeval = NULL; ;
  1498.     break;}
  1499. case 90:
  1500. #line 494 "awk.y"
  1501. { yyval.nodeval = NULL; ;
  1502.     break;}
  1503. case 91:
  1504. #line 496 "awk.y"
  1505. { yyval.nodeval = NULL; ;
  1506.     break;}
  1507. case 92:
  1508. #line 501 "awk.y"
  1509. { want_assign = 0; ;
  1510.     break;}
  1511. case 93:
  1512. #line 503 "awk.y"
  1513. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1514.     break;}
  1515. case 94:
  1516. #line 505 "awk.y"
  1517. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-3].nodeval); ;
  1518.     break;}
  1519. case 95:
  1520. #line 507 "awk.y"
  1521. {
  1522.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1523.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1524.         ;
  1525.     break;}
  1526. case 96:
  1527. #line 512 "awk.y"
  1528. {
  1529.           /* "too painful to do right" */
  1530.           /*
  1531.           if (! io_allowed && $3 == NULL)
  1532.             yyerror("non-redirected getline illegal inside BEGIN or END action");
  1533.           */
  1534.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1535.         ;
  1536.     break;}
  1537. case 97:
  1538. #line 521 "awk.y"
  1539. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1540.     break;}
  1541. case 98:
  1542. #line 523 "awk.y"
  1543. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1544.     break;}
  1545. case 99:
  1546. #line 525 "awk.y"
  1547. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1548.     break;}
  1549. case 100:
  1550. #line 527 "awk.y"
  1551. { yyval.nodeval = yyvsp[0].nodeval; ;
  1552.     break;}
  1553. case 101:
  1554. #line 529 "awk.y"
  1555. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1556.     break;}
  1557. case 102:
  1558. #line 531 "awk.y"
  1559. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1560.     break;}
  1561. case 103:
  1562. #line 533 "awk.y"
  1563. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1564.     break;}
  1565. case 104:
  1566. #line 535 "awk.y"
  1567. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
  1568.     break;}
  1569. case 105:
  1570. #line 537 "awk.y"
  1571. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
  1572.     break;}
  1573. case 106:
  1574. #line 539 "awk.y"
  1575. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1576.     break;}
  1577. case 107:
  1578. #line 541 "awk.y"
  1579. { yyval.nodeval = yyvsp[0].nodeval; ;
  1580.     break;}
  1581. case 108:
  1582. #line 543 "awk.y"
  1583. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1584.     break;}
  1585. case 109:
  1586. #line 548 "awk.y"
  1587. { want_assign = 0; ;
  1588.     break;}
  1589. case 110:
  1590. #line 550 "awk.y"
  1591. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1592.     break;}
  1593. case 111:
  1594. #line 552 "awk.y"
  1595. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1596.     break;}
  1597. case 112:
  1598. #line 554 "awk.y"
  1599. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1600.     break;}
  1601. case 113:
  1602. #line 556 "awk.y"
  1603. {
  1604.           /* "too painful to do right" */
  1605.           /*
  1606.           if (! io_allowed && $3 == NULL)
  1607.             yyerror("non-redirected getline illegal inside BEGIN or END action");
  1608.           */
  1609.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1610.         ;
  1611.     break;}
  1612. case 114:
  1613. #line 565 "awk.y"
  1614. { yyval.nodeval = yyvsp[0].nodeval; ;
  1615.     break;}
  1616. case 115:
  1617. #line 567 "awk.y"
  1618. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1619.     break;}
  1620. case 116:
  1621. #line 569 "awk.y"
  1622. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1623.     break;}
  1624. case 117:
  1625. #line 571 "awk.y"
  1626. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1627.     break;}
  1628. case 118:
  1629. #line 573 "awk.y"
  1630. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1631.     break;}
  1632. case 119:
  1633. #line 575 "awk.y"
  1634. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1635.     break;}
  1636. case 120:
  1637. #line 577 "awk.y"
  1638. { yyval.nodeval = yyvsp[0].nodeval; ;
  1639.     break;}
  1640. case 121:
  1641. #line 579 "awk.y"
  1642. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1643.     break;}
  1644. case 122:
  1645. #line 584 "awk.y"
  1646. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1647.     break;}
  1648. case 123:
  1649. #line 586 "awk.y"
  1650. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1651.     break;}
  1652. case 124:
  1653. #line 588 "awk.y"
  1654. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1655.     break;}
  1656. case 125:
  1657. #line 590 "awk.y"
  1658. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1659.     break;}
  1660. case 126:
  1661. #line 592 "awk.y"
  1662. { yyval.nodeval = snode ((NODE *)NULL, Node_builtin, yyvsp[0].ptrval); ;
  1663.     break;}
  1664. case 127:
  1665. #line 594 "awk.y"
  1666. {
  1667.         yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1668.       ;
  1669.     break;}
  1670. case 128:
  1671. #line 598 "awk.y"
  1672. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1673.     break;}
  1674. case 129:
  1675. #line 600 "awk.y"
  1676. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1677.     break;}
  1678. case 130:
  1679. #line 602 "awk.y"
  1680. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1681.     break;}
  1682. case 131:
  1683. #line 604 "awk.y"
  1684. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1685.     break;}
  1686. case 132:
  1687. #line 606 "awk.y"
  1688. { yyval.nodeval = yyvsp[0].nodeval; ;
  1689.     break;}
  1690. case 133:
  1691. #line 608 "awk.y"
  1692. { yyval.nodeval = yyvsp[0].nodeval; ;
  1693.     break;}
  1694. case 134:
  1695. #line 610 "awk.y"
  1696. { yyval.nodeval = yyvsp[0].nodeval; ;
  1697.     break;}
  1698. case 135:
  1699. #line 614 "awk.y"
  1700. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1701.     break;}
  1702. case 136:
  1703. #line 616 "awk.y"
  1704. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1705.     break;}
  1706. case 137:
  1707. #line 618 "awk.y"
  1708. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1709.     break;}
  1710. case 138:
  1711. #line 620 "awk.y"
  1712. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1713.     break;}
  1714. case 139:
  1715. #line 622 "awk.y"
  1716. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1717.     break;}
  1718. case 140:
  1719. #line 624 "awk.y"
  1720. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1721.     break;}
  1722. case 141:
  1723. #line 626 "awk.y"
  1724. { yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL); ;
  1725.     break;}
  1726. case 142:
  1727. #line 628 "awk.y"
  1728. { yyval.nodeval = yyvsp[0].nodeval; ;
  1729.     break;}
  1730. case 143:
  1731. #line 633 "awk.y"
  1732. { yyval.nodeval = NULL; ;
  1733.     break;}
  1734. case 144:
  1735. #line 635 "awk.y"
  1736. { yyval.nodeval = yyvsp[0].nodeval; ;
  1737.     break;}
  1738. case 145:
  1739. #line 640 "awk.y"
  1740. { want_assign = 1; yyval.nodeval = variable (yyvsp[0].sval); ;
  1741.     break;}
  1742. case 146:
  1743. #line 642 "awk.y"
  1744. { want_assign = 1; yyval.nodeval = node (variable(yyvsp[-3].sval), Node_subscript, yyvsp[-1].nodeval); ;
  1745.     break;}
  1746. case 147:
  1747. #line 644 "awk.y"
  1748. { want_assign = 1; yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1749.     break;}
  1750. case 149:
  1751. #line 652 "awk.y"
  1752. { yyerrok; ;
  1753.     break;}
  1754. case 150:
  1755. #line 656 "awk.y"
  1756. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1757.     break;}
  1758. case 153:
  1759. #line 665 "awk.y"
  1760. { yyerrok; ;
  1761.     break;}
  1762. case 154:
  1763. #line 668 "awk.y"
  1764. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1765.     break;}
  1766. }
  1767.    /* the action file gets copied in in place of this dollarsign */
  1768. #line 327 "bison.simple"
  1769.  
  1770.   yyvsp -= yylen;
  1771.   yyssp -= yylen;
  1772. #ifdef YYLSP_NEEDED
  1773.   yylsp -= yylen;
  1774. #endif
  1775.  
  1776. #if YYDEBUG != 0
  1777.   if (yydebug)
  1778.     {
  1779.       short *ssp1 = yyss - 1;
  1780.       fprintf (stderr, "state stack now");
  1781.       while (ssp1 != yyssp)
  1782.     fprintf (stderr, " %d", *++ssp1);
  1783.       fprintf (stderr, "\n");
  1784.     }
  1785. #endif
  1786.  
  1787.   *++yyvsp = yyval;
  1788.  
  1789. #ifdef YYLSP_NEEDED
  1790.   yylsp++;
  1791.   if (yylen == 0)
  1792.     {
  1793.       yylsp->first_line = yylloc.first_line;
  1794.       yylsp->first_column = yylloc.first_column;
  1795.       yylsp->last_line = (yylsp-1)->last_line;
  1796.       yylsp->last_column = (yylsp-1)->last_column;
  1797.       yylsp->text = 0;
  1798.     }
  1799.   else
  1800.     {
  1801.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1802.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1803.     }
  1804. #endif
  1805.  
  1806.   /* Now "shift" the result of the reduction.
  1807.      Determine what state that goes to,
  1808.      based on the state we popped back to
  1809.      and the rule number reduced by.  */
  1810.  
  1811.   yyn = yyr1[yyn];
  1812.  
  1813.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1814.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1815.     yystate = yytable[yystate];
  1816.   else
  1817.     yystate = yydefgoto[yyn - YYNTBASE];
  1818.  
  1819.   goto yynewstate;
  1820.  
  1821. yyerrlab:   /* here on detecting error */
  1822.  
  1823.   if (! yyerrstatus)
  1824.     /* If not already recovering from an error, report this error.  */
  1825.     {
  1826.       ++yynerrs;
  1827.       yyerror("parse error");
  1828.     }
  1829.  
  1830.   if (yyerrstatus == 3)
  1831.     {
  1832.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  1833.  
  1834.       /* return failure if at end of input */
  1835.       if (yychar == YYEOF)
  1836.     YYABORT;
  1837.  
  1838. #if YYDEBUG != 0
  1839.       if (yydebug)
  1840.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  1841. #endif
  1842.  
  1843.       yychar = YYEMPTY;
  1844.     }
  1845.  
  1846.   /* Else will try to reuse lookahead token
  1847.      after shifting the error token.  */
  1848.  
  1849.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  1850.  
  1851.   goto yyerrhandle;
  1852.  
  1853. yyerrdefault:  /* current state does not do anything special for the error token. */
  1854.  
  1855. #if 0
  1856.   /* This is wrong; only states that explicitly want error tokens
  1857.      should shift them.  */
  1858.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  1859.   if (yyn) goto yydefault;
  1860. #endif
  1861.  
  1862. yyerrpop:   /* pop the current state because it cannot handle the error token */
  1863.  
  1864.   if (yyssp == yyss) YYABORT;
  1865.   yyvsp--;
  1866.   yystate = *--yyssp;
  1867. #ifdef YYLSP_NEEDED
  1868.   yylsp--;
  1869. #endif
  1870.  
  1871. #if YYDEBUG != 0
  1872.   if (yydebug)
  1873.     {
  1874.       short *ssp1 = yyss - 1;
  1875.       fprintf (stderr, "Error: state stack now");
  1876.       while (ssp1 != yyssp)
  1877.     fprintf (stderr, " %d", *++ssp1);
  1878.       fprintf (stderr, "\n");
  1879.     }
  1880. #endif
  1881.  
  1882. yyerrhandle:
  1883.  
  1884.   yyn = yypact[yystate];
  1885.   if (yyn == YYFLAG)
  1886.     goto yyerrdefault;
  1887.  
  1888.   yyn += YYTERROR;
  1889.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1890.     goto yyerrdefault;
  1891.  
  1892.   yyn = yytable[yyn];
  1893.   if (yyn < 0)
  1894.     {
  1895.       if (yyn == YYFLAG)
  1896.     goto yyerrpop;
  1897.       yyn = -yyn;
  1898.       goto yyreduce;
  1899.     }
  1900.   else if (yyn == 0)
  1901.     goto yyerrpop;
  1902.  
  1903.   if (yyn == YYFINAL)
  1904.     YYACCEPT;
  1905.  
  1906. #if YYDEBUG != 0
  1907.   if (yydebug)
  1908.     fprintf(stderr, "Shifting error token, ");
  1909. #endif
  1910.  
  1911.   *++yyvsp = yylval;
  1912. #ifdef YYLSP_NEEDED
  1913.   *++yylsp = yylloc;
  1914. #endif
  1915.  
  1916.   yystate = yyn;
  1917.   goto yynewstate;
  1918. }
  1919. #line 671 "awk.y"
  1920.  
  1921.  
  1922. struct token {
  1923.     char *operator;        /* text to match */
  1924.     NODETYPE value;        /* node type */
  1925.     int class;        /* lexical class */
  1926.     short nostrict;        /* ignore if in strict compatibility mode */
  1927.     NODE *(*ptr) ();    /* function that implements this keyword */
  1928. };
  1929.  
  1930. extern NODE
  1931.     *do_exp(),    *do_getline(),    *do_index(),    *do_length(),
  1932.     *do_sqrt(),    *do_log(),    *do_sprintf(),    *do_substr(),
  1933.     *do_split(),    *do_system(),    *do_int(),    *do_close(),
  1934.     *do_atan2(),    *do_sin(),    *do_cos(),    *do_rand(),
  1935.     *do_srand(),    *do_match(),    *do_tolower(),    *do_toupper(),
  1936.     *do_sub(),    *do_gsub();
  1937.  
  1938. /* Special functions for debugging */
  1939. #ifdef DEBUG
  1940. NODE *do_prvars(), *do_bp();
  1941. #endif
  1942.  
  1943. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  1944.  
  1945. static struct token tokentab[] = {
  1946.     { "BEGIN",    Node_illegal,        LEX_BEGIN,    0,    0 },
  1947.     { "END",    Node_illegal,        LEX_END,    0,    0 },
  1948.     { "atan2",    Node_builtin,        LEX_BUILTIN,    0,    do_atan2 },
  1949. #ifdef DEBUG
  1950.     { "bp",        Node_builtin,        LEX_BUILTIN,    0,    do_bp },
  1951. #endif
  1952.     { "break",    Node_K_break,        LEX_BREAK,    0,    0 },
  1953.     { "close",    Node_builtin,        LEX_BUILTIN,    0,    do_close },
  1954.     { "continue",    Node_K_continue,    LEX_CONTINUE,    0,    0 },
  1955.     { "cos",    Node_builtin,        LEX_BUILTIN,    0,    do_cos },
  1956.     { "delete",    Node_K_delete,        LEX_DELETE,    0,    0 },
  1957.     { "do",        Node_K_do,        LEX_DO,        0,    0 },
  1958.     { "else",    Node_illegal,        LEX_ELSE,    0,    0 },
  1959.     { "exit",    Node_K_exit,        LEX_EXIT,    0,    0 },
  1960.     { "exp",    Node_builtin,        LEX_BUILTIN,    0,    do_exp },
  1961.     { "for",    Node_K_for,        LEX_FOR,    0,    0 },
  1962.     { "func",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  1963.     { "function",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  1964.     { "getline",    Node_K_getline,        LEX_GETLINE,    0,    0 },
  1965.     { "gsub",    Node_builtin,        LEX_BUILTIN,    0,    do_gsub },
  1966.     { "if",        Node_K_if,        LEX_IF,        0,    0 },
  1967.     { "in",        Node_illegal,        LEX_IN,        0,    0 },
  1968.     { "index",    Node_builtin,        LEX_BUILTIN,    0,    do_index },
  1969.     { "int",    Node_builtin,        LEX_BUILTIN,    0,    do_int },
  1970.     { "length",    Node_builtin,        LEX_LENGTH,    0,    do_length },
  1971.     { "log",    Node_builtin,        LEX_BUILTIN,    0,    do_log },
  1972.     { "match",    Node_builtin,        LEX_BUILTIN,    0,    do_match },
  1973.     { "next",    Node_K_next,        LEX_NEXT,    0,    0 },
  1974.     { "print",    Node_K_print,        LEX_PRINT,    0,    0 },
  1975.     { "printf",    Node_K_printf,        LEX_PRINTF,    0,    0 },
  1976. #ifdef DEBUG
  1977.     { "prvars",    Node_builtin,        LEX_BUILTIN,    0,    do_prvars },
  1978. #endif
  1979.     { "rand",    Node_builtin,        LEX_BUILTIN,    0,    do_rand },
  1980.     { "return",    Node_K_return,        LEX_RETURN,    0,    0 },
  1981.     { "sin",    Node_builtin,        LEX_BUILTIN,    0,    do_sin },
  1982.     { "split",    Node_builtin,        LEX_BUILTIN,    0,    do_split },
  1983.     { "sprintf",    Node_builtin,        LEX_BUILTIN,    0,    do_sprintf },
  1984.     { "sqrt",    Node_builtin,        LEX_BUILTIN,    0,    do_sqrt },
  1985.     { "srand",    Node_builtin,        LEX_BUILTIN,    0,    do_srand },
  1986.     { "sub",    Node_builtin,        LEX_BUILTIN,    0,    do_sub },
  1987.     { "substr",    Node_builtin,        LEX_BUILTIN,    0,    do_substr },
  1988.     { "system",    Node_builtin,        LEX_BUILTIN,    0,    do_system },
  1989.     { "tolower",    Node_builtin,        LEX_BUILTIN,    0,    do_tolower },
  1990.     { "toupper",    Node_builtin,        LEX_BUILTIN,    0,    do_toupper },
  1991.     { "while",    Node_K_while,        LEX_WHILE,    0,    0 },
  1992. };
  1993.  
  1994. static char *token_start;
  1995.  
  1996. /* VARARGS0 */
  1997. static void yyerror(char *mesg, ...)
  1998. {
  1999.     va_list args;
  2000.     register char *ptr, *beg;
  2001.     char *scan;
  2002.  
  2003.     errcount++;
  2004.     va_start(args,mesg);
  2005.     /* Find the current line in the input file */
  2006.     if (! lexptr) {
  2007.         beg = "(END OF FILE)";
  2008.         ptr = beg + 13;
  2009.     } else {
  2010.         if (*lexptr == '\n' && lexptr != lexptr_begin)
  2011.             --lexptr;
  2012.         for (beg = lexptr; beg != lexptr_begin && *beg != '\n'; --beg)
  2013.             ;
  2014.         /* NL isn't guaranteed */
  2015.         for (ptr = lexptr; *ptr && *ptr != '\n'; ptr++)
  2016.             ;
  2017.         if (beg != lexptr_begin)
  2018.             beg++;
  2019.     }
  2020.     msg("syntax error near line %d:\n%.*s", lineno, ptr - beg, beg);
  2021.     scan = beg;
  2022.     while (scan < token_start)
  2023.         if (*scan++ == '\t')
  2024.             putc('\t', stderr);
  2025.         else
  2026.             putc(' ', stderr);
  2027.     putc('^', stderr);
  2028.     putc(' ', stderr);
  2029.     vfprintf(stderr, mesg, args);
  2030.     putc('\n', stderr);
  2031.     va_end(args);
  2032.     exit(1);
  2033. }
  2034.  
  2035. /*
  2036.  * Parse a C escape sequence.  STRING_PTR points to a variable containing a
  2037.  * pointer to the string to parse.  That pointer is updated past the
  2038.  * characters we use.  The value of the escape sequence is returned. 
  2039.  *
  2040.  * A negative value means the sequence \ newline was seen, which is supposed to
  2041.  * be equivalent to nothing at all. 
  2042.  *
  2043.  * If \ is followed by a null character, we return a negative value and leave
  2044.  * the string pointer pointing at the null character. 
  2045.  *
  2046.  * If \ is followed by 000, we return 0 and leave the string pointer after the
  2047.  * zeros.  A value of 0 does not mean end of string.  
  2048.  */
  2049.  
  2050. int parse_escape(char **string_ptr)
  2051. {
  2052.     register int c = *(*string_ptr)++;
  2053.     register int i;
  2054.     register int count = 0;
  2055.  
  2056.     switch (c) {
  2057.     case 'a':
  2058.         return BELL;
  2059.     case 'b':
  2060.         return '\b';
  2061.     case 'f':
  2062.         return '\f';
  2063.     case 'n':
  2064.         return '\n';
  2065.     case 'r':
  2066.         return '\r';
  2067.     case 't':
  2068.         return '\t';
  2069.     case 'v':
  2070.         return '\v';
  2071.     case '\n':
  2072.         return -2;
  2073.     case 0:
  2074.         (*string_ptr)--;
  2075.         return -1;
  2076.     case '0':
  2077.     case '1':
  2078.     case '2':
  2079.     case '3':
  2080.     case '4':
  2081.     case '5':
  2082.     case '6':
  2083.     case '7':
  2084.         i = c - '0';
  2085.         count = 0;
  2086.         while (++count < 3) {
  2087.             if ((c = *(*string_ptr)++) >= '0' && c <= '7') {
  2088.                 i *= 8;
  2089.                 i += c - '0';
  2090.             } else {
  2091.                 (*string_ptr)--;
  2092.                 break;
  2093.             }
  2094.         }
  2095.         return i;
  2096.     case 'x':
  2097.         i = 0;
  2098.         while (1) {
  2099.             if (isxdigit((c = *(*string_ptr)++))) {
  2100.                 if (isdigit(c))
  2101.                     i += c - '0';
  2102.                 else if (isupper(c))
  2103.                     i += c - 'A' + 10;
  2104.                 else
  2105.                     i += c - 'a' + 10;
  2106.             } else {
  2107.                 (*string_ptr)--;
  2108.                 break;
  2109.             }
  2110.         }
  2111.         return i;
  2112.     default:
  2113.         return c;
  2114.     }
  2115. }
  2116.  
  2117. /*
  2118.  * Read the input and turn it into tokens. Input is now read from a file
  2119.  * instead of from malloc'ed memory. The main program takes a program
  2120.  * passed as a command line argument and writes it to a temp file. Otherwise
  2121.  * the file name is made available in an external variable.
  2122.  */
  2123.  
  2124. static int yylex(void)
  2125. {
  2126.     register int c;
  2127.     register int namelen;
  2128.     register char *tokstart;
  2129.     char *tokkey;
  2130.     static did_newline = 0;    /* the grammar insists that actions end
  2131.                  * with newlines.  This was easier than
  2132.                  * hacking the grammar. */
  2133.     int seen_e = 0;        /* These are for numbers */
  2134.     int seen_point = 0;
  2135.     int esc_seen;
  2136.     extern char **sourcefile;
  2137.     extern int tempsource, numfiles;
  2138.     static int file_opened = 0;
  2139.     static FILE *fin;
  2140.     static char cbuf[BUFSIZ];
  2141.     int low, mid, high;
  2142. #ifdef DEBUG
  2143.     extern int debugging;
  2144. #endif
  2145.  
  2146.     if (! file_opened) {
  2147.         file_opened = 1;
  2148. #ifdef DEBUG
  2149.         if (debugging) {
  2150.             int i;
  2151.  
  2152.             for (i = 0; i <= numfiles; i++)
  2153.                 fprintf (stderr, "sourcefile[%d] = %s\n", i,
  2154.                         sourcefile[i]);
  2155.         }
  2156. #endif
  2157.     nextfile:
  2158.         if ((fin = pathopen (sourcefile[++curinfile])) == NULL)
  2159.             fatal("cannot open `%s' for reading",
  2160.                 sourcefile[curinfile]);
  2161.         *(lexptr = cbuf) = '\0';
  2162.         /*
  2163.          * immediately unlink the tempfile so that it will
  2164.          * go away cleanly if we bomb.
  2165.          */
  2166.         if (tempsource && curinfile == 0)
  2167.             (void) unlink (sourcefile[curinfile]);
  2168.     }
  2169.  
  2170. retry:
  2171.     if (! *lexptr)
  2172.     {
  2173.         if (fgets (cbuf, sizeof cbuf, fin) == NULL) {
  2174.             if (fin != NULL)
  2175.                 fclose (fin);    /* be neat and clean */
  2176.             if (curinfile < numfiles)
  2177.                 goto nextfile;
  2178.             return 0;
  2179.         } else
  2180.             lexptr = lexptr_begin = cbuf;
  2181.     }
  2182.  
  2183.     if (want_regexp) {
  2184.         int in_brack = 0;
  2185.  
  2186.         want_regexp = 0;
  2187.         token_start = tokstart = lexptr;
  2188.         while ((c = *lexptr++) != 0) {
  2189.             switch (c) {
  2190.             case '[':
  2191.                 in_brack = 1;
  2192.                 break;
  2193.             case ']':
  2194.                 in_brack = 0;
  2195.                 break;
  2196.             case '\\':
  2197.                 if (*lexptr++ == '\0') {
  2198.                     yyerror("unterminated regexp ends with \\");
  2199.                     return ERROR;
  2200.                 } else if (lexptr[-1] == '\n')
  2201.                     goto retry;
  2202.                 break;
  2203.             case '/':    /* end of the regexp */
  2204.                 if (in_brack)
  2205.                     break;
  2206.  
  2207.                 lexptr--;
  2208.                 yylval.sval = tokstart;
  2209.                 return REGEXP;
  2210.             case '\n':
  2211.                 lineno++;
  2212.             case '\0':
  2213.                 lexptr--;    /* so error messages work */
  2214.                 yyerror("unterminated regexp");
  2215.                 return ERROR;
  2216.             }
  2217.         }
  2218.     }
  2219.  
  2220.     if (*lexptr == '\n') {
  2221.         lexptr++;
  2222.         lineno++;
  2223.         return NEWLINE;
  2224.     }
  2225.  
  2226.     while (*lexptr == ' ' || *lexptr == '\t')
  2227.         lexptr++;
  2228.  
  2229.     token_start = tokstart = lexptr;
  2230.  
  2231.     switch (c = *lexptr++) {
  2232.     case 0:
  2233.         return 0;
  2234.  
  2235.     case '\n':
  2236.         lineno++;
  2237.         return NEWLINE;
  2238.  
  2239.     case '#':        /* it's a comment */
  2240.         while (*lexptr != '\n' && *lexptr != '\0')
  2241.             lexptr++;
  2242.         goto retry;
  2243.  
  2244.     case '\\':
  2245.         if (*lexptr == '\n') {
  2246.             lineno++;
  2247.             lexptr++;
  2248.             goto retry;
  2249.         } else
  2250.             break;
  2251.     case ')':
  2252.     case ']':
  2253.     case '(':    
  2254.     case '[':
  2255.     case '$':
  2256.     case ';':
  2257.     case ':':
  2258.     case '?':
  2259.  
  2260.         /*
  2261.          * set node type to ILLEGAL because the action should set it
  2262.          * to the right thing 
  2263.          */
  2264.         yylval.nodetypeval = Node_illegal;
  2265.         return c;
  2266.  
  2267.     case '{':
  2268.     case ',':
  2269.         yylval.nodetypeval = Node_illegal;
  2270.         return c;
  2271.  
  2272.     case '*':
  2273.         if (*lexptr == '=') {
  2274.             yylval.nodetypeval = Node_assign_times;
  2275.             lexptr++;
  2276.             return ASSIGNOP;
  2277.         } else if (*lexptr == '*') {    /* make ** and **= aliases
  2278.                          * for ^ and ^= */
  2279.             if (lexptr[1] == '=') {
  2280.                 yylval.nodetypeval = Node_assign_exp;
  2281.                 lexptr += 2;
  2282.                 return ASSIGNOP;
  2283.             } else {
  2284.                 yylval.nodetypeval = Node_illegal;
  2285.                 lexptr++;
  2286.                 return '^';
  2287.             }
  2288.         }
  2289.         yylval.nodetypeval = Node_illegal;
  2290.         return c;
  2291.  
  2292.     case '/':
  2293.         if (want_assign && *lexptr == '=') {
  2294.             yylval.nodetypeval = Node_assign_quotient;
  2295.             lexptr++;
  2296.             return ASSIGNOP;
  2297.         }
  2298.         yylval.nodetypeval = Node_illegal;
  2299.         return c;
  2300.  
  2301.     case '%':
  2302.         if (*lexptr == '=') {
  2303.             yylval.nodetypeval = Node_assign_mod;
  2304.             lexptr++;
  2305.             return ASSIGNOP;
  2306.         }
  2307.         yylval.nodetypeval = Node_illegal;
  2308.         return c;
  2309.  
  2310.     case '^':
  2311.         if (*lexptr == '=') {
  2312.             yylval.nodetypeval = Node_assign_exp;
  2313.             lexptr++;
  2314.             return ASSIGNOP;
  2315.         }
  2316.         yylval.nodetypeval = Node_illegal;
  2317.         return c;
  2318.  
  2319.     case '+':
  2320.         if (*lexptr == '=') {
  2321.             yylval.nodetypeval = Node_assign_plus;
  2322.             lexptr++;
  2323.             return ASSIGNOP;
  2324.         }
  2325.         if (*lexptr == '+') {
  2326.             yylval.nodetypeval = Node_illegal;
  2327.             lexptr++;
  2328.             return INCREMENT;
  2329.         }
  2330.         yylval.nodetypeval = Node_illegal;
  2331.         return c;
  2332.  
  2333.     case '!':
  2334.         if (*lexptr == '=') {
  2335.             yylval.nodetypeval = Node_notequal;
  2336.             lexptr++;
  2337.             return RELOP;
  2338.         }
  2339.         if (*lexptr == '~') {
  2340.             yylval.nodetypeval = Node_nomatch;
  2341.             lexptr++;
  2342.             return MATCHOP;
  2343.         }
  2344.         yylval.nodetypeval = Node_illegal;
  2345.         return c;
  2346.  
  2347.     case '<':
  2348.         if (*lexptr == '=') {
  2349.             yylval.nodetypeval = Node_leq;
  2350.             lexptr++;
  2351.             return RELOP;
  2352.         }
  2353.         yylval.nodetypeval = Node_less;
  2354.         return c;
  2355.  
  2356.     case '=':
  2357.         if (*lexptr == '=') {
  2358.             yylval.nodetypeval = Node_equal;
  2359.             lexptr++;
  2360.             return RELOP;
  2361.         }
  2362.         yylval.nodetypeval = Node_assign;
  2363.         return ASSIGNOP;
  2364.  
  2365.     case '>':
  2366.         if (*lexptr == '=') {
  2367.             yylval.nodetypeval = Node_geq;
  2368.             lexptr++;
  2369.             return RELOP;
  2370.         } else if (*lexptr == '>') {
  2371.             yylval.nodetypeval = Node_redirect_append;
  2372.             lexptr++;
  2373.             return APPEND_OP;
  2374.         }
  2375.         yylval.nodetypeval = Node_greater;
  2376.         return c;
  2377.  
  2378.     case '~':
  2379.         yylval.nodetypeval = Node_match;
  2380.         return MATCHOP;
  2381.  
  2382.     case '}':
  2383.         /*
  2384.          * Added did newline stuff.  Easier than
  2385.          * hacking the grammar
  2386.          */
  2387.         if (did_newline) {
  2388.             did_newline = 0;
  2389.             return c;
  2390.         }
  2391.         did_newline++;
  2392.         --lexptr;
  2393.         return NEWLINE;
  2394.  
  2395.     case '"':
  2396.         esc_seen = 0;
  2397.         while (*lexptr != '\0') {
  2398.             switch (*lexptr++) {
  2399.             case '\\':
  2400.                 esc_seen = 1;
  2401.                 if (*lexptr == '\n')
  2402.                     yyerror("newline in string");
  2403.                 if (*lexptr++ != '\0')
  2404.                     break;
  2405.                 /* fall through */
  2406.             case '\n':
  2407.                 lexptr--;
  2408.                 yyerror("unterminated string");
  2409.                 return ERROR;
  2410.             case '"':
  2411.                 yylval.nodeval = make_str_node(tokstart + 1,
  2412.                         lexptr-tokstart-2, esc_seen);
  2413.                 yylval.nodeval->flags |= PERM;
  2414.                 return YSTRING;
  2415.             }
  2416.         }
  2417.         return ERROR;
  2418.  
  2419.     case '-':
  2420.         if (*lexptr == '=') {
  2421.             yylval.nodetypeval = Node_assign_minus;
  2422.             lexptr++;
  2423.             return ASSIGNOP;
  2424.         }
  2425.         if (*lexptr == '-') {
  2426.             yylval.nodetypeval = Node_illegal;
  2427.             lexptr++;
  2428.             return DECREMENT;
  2429.         }
  2430.         yylval.nodetypeval = Node_illegal;
  2431.         return c;
  2432.  
  2433.     case '0':
  2434.     case '1':
  2435.     case '2':
  2436.     case '3':
  2437.     case '4':
  2438.     case '5':
  2439.     case '6':
  2440.     case '7':
  2441.     case '8':
  2442.     case '9':
  2443.     case '.':
  2444.         /* It's a number */
  2445.         for (namelen = 0; (c = tokstart[namelen]) != '\0'; namelen++) {
  2446.             switch (c) {
  2447.             case '.':
  2448.                 if (seen_point)
  2449.                     goto got_number;
  2450.                 ++seen_point;
  2451.                 break;
  2452.             case 'e':
  2453.             case 'E':
  2454.                 if (seen_e)
  2455.                     goto got_number;
  2456.                 ++seen_e;
  2457.                 if (tokstart[namelen + 1] == '-' ||
  2458.                     tokstart[namelen + 1] == '+')
  2459.                     namelen++;
  2460.                 break;
  2461.             case '0':
  2462.             case '1':
  2463.             case '2':
  2464.             case '3':
  2465.             case '4':
  2466.             case '5':
  2467.             case '6':
  2468.             case '7':
  2469.             case '8':
  2470.             case '9':
  2471.                 break;
  2472.             default:
  2473.                 goto got_number;
  2474.             }
  2475.         }
  2476.  
  2477. got_number:
  2478.         lexptr = tokstart + namelen;
  2479.         /*
  2480.         yylval.nodeval = make_string(tokstart, namelen);
  2481.         (void) force_number(yylval.nodeval);
  2482.         */
  2483.         yylval.nodeval = make_number(atof(tokstart));
  2484.         yylval.nodeval->flags |= PERM;
  2485.         return NUMBER;
  2486.  
  2487.     case '&':
  2488.         if (*lexptr == '&') {
  2489.             yylval.nodetypeval = Node_and;
  2490.             while ((c = *++lexptr) != 0) {
  2491.                 if (c == '#')
  2492.                     while ((c = *++lexptr) != '\n'
  2493.                            && c != '\0')
  2494.                         ;
  2495.                 if (c == '\n')
  2496.                     lineno++;
  2497.                 else if (! isspace(c))
  2498.                     break;
  2499.             }
  2500.             return LEX_AND;
  2501.         }
  2502.         return ERROR;
  2503.  
  2504.     case '|':
  2505.         if (*lexptr == '|') {
  2506.             yylval.nodetypeval = Node_or;
  2507.             while ((c = *++lexptr) != 0) {
  2508.                 if (c == '#')
  2509.                     while ((c = *++lexptr) != '\n'
  2510.                            && c != '\0')
  2511.                         ;
  2512.                 if (c == '\n')
  2513.                     lineno++;
  2514.                 else if (! isspace(c))
  2515.                     break;
  2516.             }
  2517.             return LEX_OR;
  2518.         }
  2519.         yylval.nodetypeval = Node_illegal;
  2520.         return c;
  2521.     }
  2522.  
  2523.     if (c != '_' && ! isalpha(c)) {
  2524.         yyerror("Invalid char '%c' in expression\n", c);
  2525.         return ERROR;
  2526.     }
  2527.  
  2528.     /* it's some type of name-type-thing.  Find its length */
  2529.     for (namelen = 0; is_identchar(tokstart[namelen]); namelen++)
  2530.         /* null */ ;
  2531.     emalloc(tokkey, char *, namelen+1, "yylex");
  2532.     memcpy(tokkey, tokstart, namelen);
  2533.     tokkey[namelen] = '\0';
  2534.  
  2535.     /* See if it is a special token.  */
  2536.     low = 0;
  2537.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2538.     while (low <= high) {
  2539.         int i, c;
  2540.  
  2541.         mid = (low + high) / 2;
  2542.         c = *tokstart - tokentab[mid].operator[0];
  2543.         i = c ? c : strcmp (tokkey, tokentab[mid].operator);
  2544.  
  2545.         if (i < 0) {        /* token < mid */
  2546.             high = mid - 1;
  2547.         } else if (i > 0) {    /* token > mid */
  2548.             low = mid + 1;
  2549.         } else {
  2550.             lexptr = tokstart + namelen;
  2551.             if (strict && tokentab[mid].nostrict)
  2552.                 break;
  2553.             if (tokentab[mid].class == LEX_BUILTIN
  2554.                 || tokentab[mid].class == LEX_LENGTH)
  2555.                 yylval.ptrval = tokentab[mid].ptr;
  2556.             else
  2557.                 yylval.nodetypeval = tokentab[mid].value;
  2558.             return tokentab[mid].class;
  2559.         }
  2560.     }
  2561.  
  2562.     /* It's a name.  See how long it is.  */
  2563.     yylval.sval = tokkey;
  2564.     lexptr = tokstart + namelen;
  2565.     if (*lexptr == '(')
  2566.         return FUNC_CALL;
  2567.     else
  2568.         return NAME;
  2569. }
  2570.  
  2571. static FILE *pathopen (char *file)
  2572. {
  2573.     char *name;
  2574.     FILE *fp;
  2575.  
  2576.     if (strcmp (file, "-") == 0)
  2577.         return (stdin);
  2578.  
  2579.     if (strict)
  2580.         return (fopen (file, "r"));
  2581.  
  2582.     if (getenv ("Awk$Path") == NULL)
  2583.         fp = fopen (file, "r");
  2584.     else
  2585.     {
  2586.         name = malloc (strlen(file) + 5);
  2587.         strcpy (name, "Awk:");
  2588.         strcpy (name + 4, file);
  2589.  
  2590.         fp = devopen (name, "r");
  2591.         free (name);
  2592.  
  2593.         if (fp == NULL)
  2594.             fp = devopen (file, "r");
  2595.     }
  2596.  
  2597.     return (fp);
  2598. }
  2599.  
  2600. static NODE *node_common(NODETYPE op)
  2601. {
  2602.     register NODE *r;
  2603.     extern int numfiles;
  2604.     extern int tempsource;
  2605.     extern char **sourcefile;
  2606.  
  2607.     r = newnode(op);
  2608.     r->source_line = lineno;
  2609.     if (numfiles > -1 && ! tempsource)
  2610.         r->source_file = sourcefile[curinfile];
  2611.     else
  2612.         r->source_file = NULL;
  2613.     return r;
  2614. }
  2615.  
  2616. /*
  2617.  * This allocates a node with defined lnode and rnode. 
  2618.  * This should only be used by yyparse+co while reading in the program 
  2619.  */
  2620. NODE *node(NODE *left, NODETYPE op, NODE *right)
  2621. {
  2622.     register NODE *r;
  2623.  
  2624.     r = node_common(op);
  2625.     r->lnode = left;
  2626.     r->rnode = right;
  2627.     return r;
  2628. }
  2629.  
  2630. /*
  2631.  * This allocates a node with defined subnode and proc
  2632.  * Otherwise like node()
  2633.  */
  2634. static NODE *snode(NODE *subn, NODETYPE op, NODE *(*procp)())
  2635. {
  2636.     register NODE *r;
  2637.  
  2638.     r = node_common(op);
  2639.     r->subnode = subn;
  2640.     r->proc = procp;
  2641.     return r;
  2642. }
  2643.  
  2644. /*
  2645.  * This allocates a Node_line_range node with defined condpair and
  2646.  * zeroes the trigger word to avoid the temptation of assuming that calling
  2647.  * 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'. 
  2648.  */
  2649. /* Otherwise like node() */
  2650. static NODE *mkrangenode(NODE *cpair)
  2651. {
  2652.     register NODE *r;
  2653.  
  2654.     r = newnode(Node_line_range);
  2655.     r->condpair = cpair;
  2656.     r->triggered = 0;
  2657.     return r;
  2658. }
  2659.  
  2660. /* Build a for loop */
  2661. static NODE *make_for_loop(NODE *init, NODE *cond, NODE *incr)
  2662. {
  2663.     register FOR_LOOP_HEADER *r;
  2664.     NODE *n;
  2665.  
  2666.     emalloc(r, FOR_LOOP_HEADER *, sizeof(FOR_LOOP_HEADER), "make_for_loop");
  2667.     n = newnode(Node_illegal);
  2668.     r->init = init;
  2669.     r->cond = cond;
  2670.     r->incr = incr;
  2671.     n->sub.nodep.r.hd = r;
  2672.     return n;
  2673. }
  2674.  
  2675. /*
  2676.  * Install a name in the hash table specified, even if it is already there.
  2677.  * Name stops with first non alphanumeric. Caller must check against
  2678.  * redefinition if that is desired. 
  2679.  */
  2680. NODE *install(NODE **table, char *name, NODE *value)
  2681. {
  2682.     register NODE *hp;
  2683.     register int len, bucket;
  2684.     register char *p;
  2685.  
  2686.     len = 0;
  2687.     p = name;
  2688.     while (is_identchar(*p))
  2689.         p++;
  2690.     len = p - name;
  2691.  
  2692.     hp = newnode(Node_hashnode);
  2693.     bucket = hashf(name, len, HASHSIZE);
  2694.     hp->hnext = table[bucket];
  2695.     table[bucket] = hp;
  2696.     hp->hlength = len;
  2697.     hp->hvalue = value;
  2698.     emalloc(hp->hname, char *, len + 1, "install");
  2699.     memcpy(hp->hname, name, len);
  2700.     hp->hname[len] = '\0';
  2701.     return hp->hvalue;
  2702. }
  2703.  
  2704. /*
  2705.  * find the most recent hash node for name name (ending with first
  2706.  * non-identifier char) installed by install 
  2707.  */
  2708. NODE *lookup(NODE **table, char *name)
  2709. {
  2710.     register char *bp;
  2711.     register NODE *bucket;
  2712.     register int len;
  2713.  
  2714.     for (bp = name; is_identchar(*bp); bp++)
  2715.         ;
  2716.     len = bp - name;
  2717.     bucket = table[hashf(name, len, HASHSIZE)];
  2718.     while (bucket) {
  2719.         if (bucket->hlength == len && STREQN(bucket->hname, name, len))
  2720.             return bucket->hvalue;
  2721.         bucket = bucket->hnext;
  2722.     }
  2723.     return NULL;
  2724. }
  2725.  
  2726. #define HASHSTEP(old, c) ((old << 1) + c)
  2727. #define MAKE_POS(v) (v & ~0x80000000)    /* make number positive */
  2728.  
  2729. /*
  2730.  * return hash function on name.
  2731.  */
  2732. static int hashf(register char *name, register int len, int hashsize)
  2733. {
  2734.     register int r = 0;
  2735.  
  2736.     while (len--)
  2737.         r = HASHSTEP(r, *name++);
  2738.  
  2739.     r = MAKE_POS(r) % hashsize;
  2740.     return r;
  2741. }
  2742.  
  2743. /*
  2744.  * Add new to the rightmost branch of LIST.  This uses n^2 time, so we make
  2745.  * a simple attempt at optimizing it.
  2746.  */
  2747. static NODE *append_right(NODE *list, NODE *new)
  2748. {
  2749.     register NODE *oldlist;
  2750.     static NODE *savefront = NULL, *savetail = NULL;
  2751.  
  2752.     oldlist = list;
  2753.     if (savefront == oldlist) {
  2754.         savetail = savetail->rnode = new;
  2755.         return oldlist;
  2756.     } else
  2757.         savefront = oldlist;
  2758.     while (list->rnode != NULL)
  2759.         list = list->rnode;
  2760.     savetail = list->rnode = new;
  2761.     return oldlist;
  2762. }
  2763.  
  2764. /*
  2765.  * check if name is already installed;  if so, it had better have Null value,
  2766.  * in which case def is added as the value. Otherwise, install name with def
  2767.  * as value. 
  2768.  */
  2769. static void func_install(NODE *params, NODE *def)
  2770. {
  2771.     NODE *r;
  2772.  
  2773.     pop_params(params->rnode);
  2774.     pop_var(params, 0);
  2775.     r = lookup(variables, params->param);
  2776.     if (r != NULL) {
  2777.         fatal("function name `%s' previously defined", params->param);
  2778.     } else
  2779.         (void) install(variables, params->param,
  2780.             node(params, Node_func, def));
  2781. }
  2782.  
  2783. static void pop_var(NODE *np, int freeit)
  2784. {
  2785.     register char *bp;
  2786.     register NODE *bucket, **save;
  2787.     register int len;
  2788.     char *name;
  2789.  
  2790.     name = np->param;
  2791.     for (bp = name; is_identchar(*bp); bp++)
  2792.         ;
  2793.     len = bp - name;
  2794.     save = &(variables[hashf(name, len, HASHSIZE)]);
  2795.     for (bucket = *save; bucket; bucket = bucket->hnext) {
  2796.         if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
  2797.             *save = bucket->hnext;
  2798.             freenode(bucket);
  2799.             free(bucket->hname);
  2800.             if (freeit)
  2801.                 free(np->param);
  2802.             return;
  2803.         }
  2804.         save = &(bucket->hnext);
  2805.     }
  2806. }
  2807.  
  2808. static void pop_params(NODE *params)
  2809. {
  2810.     register NODE *np;
  2811.  
  2812.     for (np = params; np != NULL; np = np->rnode)
  2813.         pop_var(np, 1);
  2814. }
  2815.  
  2816. static NODE *make_param(char *name)
  2817. {
  2818.     NODE *r;
  2819.  
  2820.     r = newnode(Node_param_list);
  2821.     r->param = name;
  2822.     r->rnode = NULL;
  2823.     r->param_cnt = param_counter++;
  2824.     return (install(variables, name, r));
  2825. }
  2826.  
  2827. /* Name points to a variable name.  Make sure its in the symbol table */
  2828. NODE *variable(char *name)
  2829. {
  2830.     register NODE *r;
  2831.  
  2832.     if ((r = lookup(variables, name)) == NULL)
  2833.         r = install(variables, name,
  2834.             node(Nnull_string, Node_var, (NODE *) NULL));
  2835.     return r;
  2836. }
  2837.